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@ Apple Lisa Computer Technical Information 


Lisa Boot ROM Listing 


| 
“4 


This is the listing of the Lisa’s Boot ROM program, version 2.48 (a.k.a. version H). This 
program was written in 68000 assembly language. This listing was produced by the Lisa 68000 
TLA Assembler. At the end of this document appears the hex bytes that this listing produces 


with some commentary. 
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-NOLIST 

LL II SSSSSSS AAA 

LL II ss AA AA 

LL II SSSSSSS AAAAAAA 

LL II ss AA AA 

LLLLLLL II SSSSSSS AA AA 
BBBBBB 00000 00000 TITTITITT RRRRRR C0000 MMM MMM 
BB BB [e,e) [e,e) OO oe) TT RR RR OO CO =6©MMMM MM 
BBBBBB (oe) [ove] oO (oe) TT RRRRRR oe) CO =6©MM 6 6M SOMM 
BB BB [e,e) [e,e) oO oO TT RR RR oO CO MM MM 
BBBBBB 00000 00000 TT RR RR 00000 MM MM 


Copyright 1983, 1984 Apple Computer Inc. 
Revision 2H 


; Filename: 


; Function: 


RMXXX.Y.TEXT, XXX ROM VERSION # (e.g., 200 for 2.00) 
(equates) 

(kernel tests) 

(secondary tests) 

(bootstrap code) 

(monitor code) 


(graphics, icon and message display) 


QewWHnoA 


Initializes LISA system for use and performs preliminary 
diagnostic checks. If all tests pass, the system then 

does a keyboard scan to check for user input. If any key 

is hit other than caps lock or the mouse button, 

a menu is displayed on the screen showing the available 

boot devices. If a valid COMMAND key sequence is detected, 

a boot from an alternate device is attempted (see below) . 

If no keyboard input is detected, the system first checks 
parameter memory for a valid boot device and, if none, defaults 
to booting from a Profile attached to the builtin parallel port 
for Lisa 1 systems. 


For Lisa 2 systems, a check is first made to verify a disk 
(internal or external) is connected before defaulting to the 
hard disk boot. If no disk is detected, the system defaults 


tex 
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tex 


- to booting from the floppy drive. 


; Inputs: Checks for keyboard input from the user. Currently, the following 
; key sequences are honored if input after the system "clicks" the 
iH speaker (CMD refers to the Apple key on the keyboard) : 


; CMD/1 - boot from Twiggy drive #1 or integral hard disk 
: CMD/2 - boot from Twiggy drive #2 or SONY drive 
; CMD/3 - boot from Profile attached to parallel port or integral hard disk 


7 CMD/4 - boot from I/O slot #1, port 
; CMD/5 - boot from I/O slot #1, port 
; CMD/6 - boot from I/O slot #2, port 
; CMD/7 - boot from I/O slot #2, port 
; CMD/8 - boot from I/O slot #3, port 
; CMD/9 - boot from I/O slot #3, port 


NRPNRFNE 


7 CMD/ENTER (on key pad) - abort boot, branch to ROM monitor 
: CMD/SHIFT/P - abort boot, do power cycling 


; OUTPUTS: Saves various results and contents of system registers in memory 
4 for examination by system programs or with the ROM monitor. 


y $180-183 : 
: Memory sizing error results 
; $186-1A5 : 
; $1A6-1A9 : 
; S1AA-1AB : 
; $1AC-1AF : 
: Results of MMU tests (context/data bits) 
: Keyboard ID (00 = no ID received) 

: Boot device ID 

: Boot failure data 

, $1BA-1BF : 
; $1C0O-1DF : 
: $1E0-1FF : 
; $240-260 : 
; $260-267 : 
; $268-26B : 
; $26C-26F : 
: Actual (logical) error address found during search 
- $274-277 : 
: $278-27B : 
: Error row for parity chip failure (0 = first row, 7 = last row) 
: Error column for parity chip failure (9 or 14) 

: Reserved 

: Exception data save area 


; $184-185 


7 $1B0-1B1 
i $1B2 
i $1B3 
: $1B4-1B9 


; $270-273 


i $27C 
7 $27D 
i $27E-280 
: $280-293 


Power-up status (x0000000 = ok) 


Results of memory read/write tests 

Parity error memory address (if error during mem test) 
Memory error address latch 

D7 save on exception errors 


Clock setting (Ey,dd,dh,hm,ms,st) 

Data reg save area (DO - D7) 

Address reg save area (AO - A7, A7 = USP) 

System serial # 

Scratch area 

Suspected (logical) memory error address for parity error 
Save of data written to suspected error address 


Save of data read during parity error search 
(Physical) error address read from parity error address latch 
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i $294-297 
; $298-299 : 
i $29A-29B : 
; $29C-29D : 
; $29E 

; $29F 

; $2A0 

: $2A1 

; $2A2-2A3 
; $2A4-2A7 
: $2A8-2AB : 
; $2AC 
; $2AD 
i $2AE 
B $2AaF 


‘ $2B0-2BF : 
; $2C0-480 
i $480-800 


tex 


(FC/EXCADR/IR/SR/PC/EXCTYPE/SSP) 


44 = NMI or other interrupt 

45 = bus error 

46 = address error 

47 = other exception/interrupt 

48 = illegal instruction error 

49 = line 1010 or 1111 trap 

50 = bus error accessing keyboard VIA 

51 = bus error accessing parallel port VIA 
57 = bus error accessing disk controller 


: Maximum physical memory address + 1 


I/O slot 1 card id (0 = no card present) 
I/O slot 2 card id 
I/O slot 3 card id 


: Reserved 

: Reserved 

: Reserved 

: Disk ROM id 

: Reserved 

: Minimum physical address 


Total memory (Max-Min) 


: SCC test results 

: Slot # of memory board if memory error 

: Result of disk controller self-test 

: System type (0 = Lisa 1, 1 = Lisa 2, 2 = Lisa 2 with external hard disk, 


3 = Lisa 2 with internal hard disk) 
Keyboard queue (16 bytes) 


: ROM scratchpad/stack area 
: Reserved for ROM local variable usage 


Also saves data in special parameter memory area reserved for boot ROM use if error 


‘3 encountered. 


; $FCC161 
; $FCC163-165 
; $FCC167 
i $FCC169-173 


Usage is as follows: 


: Error code 

: Contents of memory error address latch if parity error 
: Memory board slot # if memory error 

: Last value read from clock 


; $FCC175-17B : Reserved 
i SFCC17D-17F : Checksum 


; Originator: Rich Castro 
; Modified by: Rich Castro 


7/30/81 - Version 0.0 released to manufacturing 
7/30 - 11/3/81 - Made the following changes: 
1) Twiggy bootstrap capability 
2) Initial COPS test and keyboard scan 
3) Moved parallel card to slot 2 
4) Changed ROM interrupt/exception vectors, 
5) Created jump table for ROM routines 
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tex 


‘ 11/3/81 - Version 0.7 released to the world 


: 11/4/81 - 1/15/82 - Made the following changes: 


; 1) 
, 2) 


; 3) 
; 4) 
; 5) 
i 6) 
; 7) 
; 8) 
; 9) 
7 10) 
y 11) 
; 12) 
7 13) 


; 14) 


; 15) 
; 1/15/82 - 
; 1/18/82 - 
; 1/19/82 - 
; 1/27/82 - 
; 1/28/82 - 
; 1/30/82 - 
; 1/31/82 - 
; 2/6/82 - 


; 2/15/82 - 


; 2/17/82 - 


Added support for new memory cards 
Added warm-start capability and jump 
table for ROM subroutine usage 
Modified MMU reset routine to support 
single step board usage 

Added full memory initialization 
Added 256K memory parity test 
Modified COPS initialization so that 
keyboard commands can be sensed more 
reliably 

Added error code display routines and 
display of CPU and IO ROM versions 
Added preliminary disk controller test 
Updated warm-start check 

Modified disk interface test 

Changed low memory assignments 

Made corrections for no I/O board, disk 
interface error and contrast setting 
Modified memory sizing routine to 
catch memory errors 

Modify MMU test to avoid context 0 
destruction, add contrast setting for 
new machines, correct disk error and 
CPU ROM messages 

Move stack so old memory test still runs 


Release version 0.16 

Fix stack problem and release vrsn 0.17 
Change stack for call routine and version 
to 0.18 

Change MMU error routine to do address 
and data line toggling 

Add video circuitry test 

Add write wrong parity test 

Move run time stack to $180 

Add Profile bootstrap with upgrade for 
OS use (add jump table entries also) 
Update Twiggy bootstrap and add entry 
for OS use; also add MMU test to 
conditional assembly and add context 
saving to MMUTST2 routine 

Add correction to memory test for 
reboot problem and leave parity on 
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; 2/24/82 
; 2/25/82 


i 3/1/82 


P 3/1/82 
3/1/82 


, 3/4/82 


; 3/10/82 


; 3/10/82 
; 3/15/82 


2 3/17/82 
7 3/18/82 


; 4/5/82 


; 4/6/82 
; 4/7/82 


; 4/8/82 


i 5/5/82 


7 5/12/82 


; 5/13/82 


7 5/14/82 


; 5/17/82 


tex 


Add code for clock test and special 
burn-in cycling 

Add code to simulate soft on switch 
pressed for COPS problem 

Removed all changes since ROM 0.18 
release except for parity enabling, 
no reset feature, memory sizing change 
and Profile booting 

Restore default stack ptr loc to $300 
Move default stack to $0400, restore 
everything except MMU testing 

Add MMU initialization and modify 
Twiggy, Profile boot routines for new 
load point 

Add change for new I/O addresses and 
fix for Twiggy routine 

Change contrast value for new I/O's 
Add correction for Profile and COPS 
routines and display msg when booting 
Restore version # at end of file 
Release version 0.22 


Make initial 2732 version (1.00); add 
following changes: 

1) correct MMU error routine bug 

2) change stack for CALL to $0400 

3) add parity disable to WWP routine 

4) change MMU I/O space code to '9' 

5) add invalid boot code message 
Add speaker click after COPS check 
Add jump table entry for speaker 
routine, 1 second delay before "click" 
and alpha lock key check 


Release version 1.00 


Add I/O slot configuration check and 
I/O slot booting. Also add change to 
Profile read routine for PCR setting. 
Add burnin power-cycling routine as 
boot option invoked by CMD/P. 

Add changes for COPS command timing, 
Twiggy timeout, Twiggy booting, and 
add power-cycling routine. 

Add fixes for booting via parameter 
memory and COPS timing experiment. 
Add display of loop count and run time, 
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5/18/82 


5/20/82 


5/21/82 
5/26/82 


6/1/82 


6/1/82 


6/3/82 
6/3/82 


6/7/82 
6/10/82 


tex 


and alter parameter memory useage for 
power-cycling option. 

Add display of Twiggy errors, change 
COPS routine for precheck code. 

Add contrast reset for "warm start", 
add cycle value display, restore COPS 
timeout code. 


Release version 1.02 


Begin addition of ROM monitor; set 
default to Apple if PM = 00. 
Make following changes: 
1) Memory sizing retry count to 64 
2) Save results on memory sizing errors 
3) Update NMI routine to check for parity 
errors. 
4) Restore default NMI vector after 
memory test. 
5) Create read clock subroutine and call 
when doing clock display. 
6) Add boot fix to save device id. 
Change to new sizing algorithm and retry 
count back to 32. 
Convert to version 1.03 
Made following changes: 
1)Localize message display to TSTCHK 
2)Do clear screen only in INITVCT and 
in TSTCHK and second monitor level. 
3)Change default video page to last. 
4)Complete first edition of monitor. 
Modify monitor level2 user interface. 
Made following changes: 
1)Add boot from Apple as CMD/A. 
2)Clear screen and display only in 
routine TSTCHK. 
3) Add ROM checksum error bit. 
4)Add exception error check to TSTCHK. 
5) Add speaker click just before 
keyboard scan. 
6)Reset to first video page for boot 
from Apple. 
7)Merge in changes from 1.03 file. 
8)Add parity error check to TSTCHK 
9)Change power-cycling so that double 
bus fault used to restart diags 


6/11/82 - Made following changes: 
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6/14/82 
6/22/82 


6/30/82 


7/1/82 


7/7/82 


7/13/82 
7/14/82 


7/15/82 


tex 


1)Increase Twiggy timeout to 2 mins. 
2)Add 5 sec delay in power-cycle mode 
before shutting down. 


Release version 1.04 
Add loop after COPS test if error 
since keyboard not accessible. Also add 
fix for NMI restore after memory test. 
Made following changes: 
1) Add parameter memory and I/O boot 
checksum routines. 
2)Remove boot id save to parameter 
memory, except for power-cycle. 
3)Change to new boot device id's. 
1)Add changes for new Twiggy firmware. 
2)Add fixes for bugs in 1.04: 
a)Add row setting before error display 
to avoid writing over menu line. 
b)Set device codes for Profile and 
I/O slots to allow display if error. 
c)Enable setting of timeout for Twiggy 
reads. 
d)Save error codes for I/O boot in 
memory . 
e)Add option of clearing memory in 
INITMON routine. 
Made following changes: 
1)Modify checksum routines 
2)Add keyboard/mouse check/reset code 
Add speed parameter for new Twiggy code 
Add check for DSKDIAG in disk test, 
change to new Twiggy error codes 
Made following changes: 
1)Add Profile routine updates. 
2)Restore old boot id codes - new ones 
used only when new Twiggy code 
released. 
3)Upgrade burnin code for new parameter 
memory usage. 
4)Attempt to enable keyboard after MMU 
errors. 
5)Remove I/O boot checksum code until 
conversion to new Twiggy code. 
6) Add video pattern display code.. 
7)Remove characters from table and 
make other changes to save bytes. 
8)Upgrade service mode display option 
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; 7/16/82 
; 7/19/82 


; 7/19/82 
; 7/20/82 


; 7/20/82 
; 7/21/82 


; 7/23/82 
; 7/27/82 


; 7/29/82 


; 7/30/82 


i 8/4/82 


i 8/9/82 


7 8/11/82 


: 8/12/82 


8/14/82 


; 8/18/82 
; 8/23/82 


: 8/24/82 


; 8/25/82 


to handle count up to S$FFFF. 


Create version 1.05 

Add bug fixes for MMU testing, power- 
cycle memory testing, Profile boot 
and service mode display option. 


Create version 1.06 
Add fix for MMU testing to properly 
record context in error 


Release version 1.07 
Make keyboard/mouse reset code changes 
and move check to before first "click" 
Add extended memory tests 
Add screen memory test and VIA tests. 
Change default boot for new Twiggy code 
to upper Twiggy. Add conditionals for 
Apple code. 
Add SCC test, optimize code. 
Add RAM address uniqueness test. 
Added the following: 
1) Twiggy mods for interleave 
2)Monitor options CONTINUE and LOOP 
3)Exception routine for line 1111 and 
line 1010 errors. 
Add Twiggy mod for disk clamp, add mods 
for kernel test failures such as screen 
flash on MMU error. 
Add memory sizing fix, increase delay 
for COPS and change default boot to 
TWIGGY! ! 
Begin code changes for new user interface 
and add hooks for icon display. 
Add mods for Twiggy changes to monitor 
DSKDIAG line and add initial timeout. 
Continue user interface changes. 
Add mouse, cursor code and changes for 
Add controls for 2716 version of ROM. 
Add changes for Service mode to use 
pull down menu, eliminate keyboard 
queuing while awaiting input. 
Add dialog box, and window to service 
mode with modified scroll and character 
output routines. 
Add icons along with routines to display 
during test and for errors. 
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Hy 8/27/82 


; 8/30/82 


; 8/31/82 


; 8/31/82 


i 9/8/82 


i 9/9/82 


; 9/10/82 


; 9/10/82 


; 9/13/82 


: 9/14/82 


; 9/22/82 


; 9/23/82 


; 9/24/82 
7 9/25/82 


: 9/29/82 
i 9/30/82 


tex 


Add routines for displaying and using 
boot icon menu. 

Add auto boot from Applenet. 

Add minor additions to Service mode 
for Set and Loop options. 


Create and do internal release of 
2716 (0.24), 2732 (1.15) and 2764 (2.00) 
ROM versions. 


Add fixes for I/O slot icon display 
and Profile icon display. 

Add fix for reboot problem in 2716 ROM. 
Add serial # read routine and test for 
2732 and 2764 ROM versions. Expand 
stack for serial read routine. 

Add fix for device code display for ROM 
versions 0.24 and 1.15. 


Create and do internal release of new 
ROM versions 0.25, 1.16 and 2.01. 


Add fixes for memory sizing and I/O 
slot booting. 


Create and release ROM versions 0.26, 
1.17 and 2.02. 
Add fixes and code for: 
1)Default video latch setting 
2)Mask for I/O and exception errors 
3)Message display on external calls 
to ROM monitor 
4)Contrast setting before screen test 
5)Disable of NMI key on power-up 
6)Boot failure after first load 
7)Error tones for failures 
8) Loop mode setting of NMI key 
Add 
1) Power cycling 
2)Full service mode menu 
3) Loop mode test choice display 
Add dump memory option to service mode 
Modify display memory option to allow 
count and address data on same line 
Add jump table entry for READMMU 
Add: 
1)"No reset" feature 
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; 10/5/82 


; 10/6/82 


; 10/7/82 


; 10/9/82 


tex 


2)Verify Disk option for service mode 
3)Optimize cursor routines and 
remove unused CursorShield routine. 
4)Invert rectangles when selected from 
keyboard. 
5)Display boot menu only if down keycode 
detected. 
Add: 
1)Memory error decoding to board level 
2)New size and position for alert box 
3)New test icon display 
4)Diskette # for Twiggy errors 
Add: 
1)Continue keyboard scan after COPS 
errors 
2)Set extended memory test bit for 
loop on memory test option 
3)Display I/O slot card # on errors 
4)Change boot menu to "pull-down" format 
5) Change to new icons 
Add: 
1) SCC test 
2)Error if no serial # (allow continue) 
3)Two passes of memory tests for extended 
mode, one for regular mode 
Create version 2.03 


7 10/10/82 - Add bug fixes and I/O slot ROM check in 


; 10/12/82 


; 10/13/82 


; 10/14/82 
; 10/18/82 


; 10/20/82 
; 10/21/82 


; 10/22/82 


config scan. 
Create and release version 2.04. 


Make following changes: 

1)Add keyboard reset code 

2)Remove SCC test 

3)Add bug fixes for making alert box 

and displaying bad keyboard 

Add display of check marks for test icons 
Add fixes for Monitor entry, Profile boot, 
looping on diag tests 
Add message translations 
1) Adjust alert box and button dimensions 
2)Add boot from all ports on I/O slots 
3)Add fix for CMD key detection in monitor 
4)Change powercycle window to alert box 
5) Extend verify timeout to 4 minutes 
1)Add keyboard reset on external entry to ROM 

monitor 
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10/25/82 


10/27/82 


10/29/82 


11/1/82 


11/3/82 


11/8/82 


11/9/82 

11/11/82 
11/12/82 
11/13/82 


tex 


2)Make Dump Memory routine conditional on 
final LISA ROM 
1)Change wait for disk error to branch to 
monitor - CONTINUE option then continues 
with the same boot device 
2)Change RETRY phrase to RESTART 
Made following changes: 
1)RESET instruction on startup 
2)Jump table entries for access to memory 
test and display decimal routines 
3)Optimize warm start reset check and 
MMU error loop routines 
4)Change default video page to $2F for 
no memory found. 
5)Rewrite screen memory test. Change main 
memory test to go from low memory 
to base of screen memory. 
6)Move inverse video check to after screen 
test, doing rewrite only of screen page. 
7)Add new boot failure code, with hooks to 
catch booting errors after ROM has 
released control to boot loader for Twiggy 
and Profile booting. 
Add display for uncompressed slot card icons. 
Modify TONE routine to init PCR reg. 
Change external entry to monitor interface 
so that error code displayed on same line as 
message if no icon displayed 
Made following changes: 
1)Move creation of test icon display till 
after keyboard reset so translation can 
be done if necessary 
2)Do cursor, mouse init only once so 
cursor posn not reset 
3)Optimize mouse, cursor routines 
4) Correct COPSCMD routine 
5)Upgrade check for Profile routine and 
optimize Profile read code 
Conditionally add check for keyboard connected 
routine. 
Create version 2.07 
Modify ROM checksum algorithm 
Add diskette eject on power-off 
1)Remove Dump Memory/Verify Disk from Service 
mode menu 
2)Add speaker beep and specific read/write 
loop for memory sizing and lo mem errors 
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0000| 
0000| 
0000 | 
0000 | 
0000| 
0000 | 


; 11/15/82 - 


; 11/16/82 - 


; 11/18/82 - 


; 11/19/82 - 


; 11/19/82 - 


; 12/15/82 - 


; 12/16/82 - 


; 12/18/82 - 
2 1/3/83 - 


; 1/7/83 - 


; 1/11/83 - 


; 1/12/83 - 


tex 


1)Add keyboard/mouse disconnect check 

2)Remove memory "clear" from sizing test - now 
done after memory testing 

1)Change power-cycle invoking to CMD/SHIFT/P 
key sequence. 

2)Change customer monitor mode invoking to 
CMD/ENTER (on key pad) key sequence. 

3) Add wait for profile loop in boot menu 
display routine 

4) Add timeout to general wait for clock 
input routine 

5) Increase delay for poweroff wait loop 

6)Optimize character display routine 

1)Add save of error code to special parameter 
memory area for use during burnin. 

2)Add context check for MMU testing 

3)Create version 2.08 for internal release 

1)Change initial position of cursor to center 
of screen. 


Release versions 2.08 (internal) and 
2.09 (for manufacturing) 


Add: 

1)Setting of VIA PCR reg for later use 

2)Reset of keyboard before boot 

3) Fix for slot 3 card check for boot menu 

Add: 

1)Move Profile cmd buffer to location $304 

2)Change default boot device to Profile 

3)Remove support for third boot port on 
each slot 

4)Expand id range for test card search 

5)Don't display Restart button after boot 
error 

6)New icons 

Fix memory test bug 


Fix bug in reporting parity circuitry 

failure. Change version to 2.10. 

Make following changes: 

1)Change keyboard sequences for I/O slot 
booting 

2)Extend timeout for inital Profile check 

Change SCC test to use max baud rate for 

loopback test 

Add running of expansion card status routines 
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; 1/18/83 


; 1/21/83 
; 1/28/83 
; 3/15/83 


; 4/20/83 


; 4/22/83 


; 4/26/83 
; 4/27/83 


; 5/9/83 


i 5/10/83 


Hy 5/12/83 


; 8/8/83 


tex 


when configuration check is done 

Add fixes for: 

1)Continuing after memory error 

2)Checking for no reset function 

4)Read of I/O slot ROM for icon data -le 2 meg 
ensure odd address for icon count 

5)Default boot setting when loop on memory 
test selected 

Add save of disk controller self-test status 


Create and release ROM version 2.11 


Extend Profile timeout for case where drive 
may be parking head. (bug RM016) 
Add fixes for: 
1)Memory sizing (bug RMO15). 
2)Garbage sent out serial port (RM014). 
3) Removed 6504 (bug RM013). 
4)Never ready Profile (bug RMO011). 
Also do some code optimization in icon 
routines to make room for fixes. (RM000) 
Do code optimization for setting bus error 
vector (labeled as RMOOO). 
Add changes for following requests: 
1)Display ROM id's on bootup (CHG001) 
2)Loop on address 1Meg-2 if sizing error (CHG002) 
3)Turn off contrast before doing poweroff (CHG003) 
4)Change copyright notice. (CHG005) 
Also modify alert msg display routine (CHGO0O05) . 
Add loop on CPU diags if no memory or I/O 
board installed. Also toggle LED. (CHG004) 
Do only basic memory test on warm-start. (CHG006) 
Add fix for NMI bug (RMO10). 
Made following changes: 
1)Change ROM id display to rev # (D) (CHG0O01) 
2)Change ROM test failure to loop at fixed address 
SOOFEOOC8 (end of jump table) (CHG007) 
3)Make correction for screen not cleared when 
continuing from I/O slot error to boot menu. 
(CHGO08) 
Add change to enable display of uncompressed icons 
upon external entry to ROM Monitor (CHG008) . 


Create and release rev D of boot ROM. 


Add changes for Pepsi system: (CHGO09) 
1) New icons. 
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8/9/83 


8/10/83 


8/16/83 


9/1/83 


9/2/83 


9/6/83 


9/7/83 


9/8/83 


10/10/83 


10/12/83 


10/20/83 


10/20/83 


12/15/83 


tex 


2) Display of icons with id #'s. 

Add save of disk ROM id in low memory. (CHG010) 
Add fixes for: 

1) SCC init for Applebus. (CHGO011) 

2) Test card boot search. (CHG012) 

Delete inverse video check. (CHG013) 

Add fix to beep routine. (CHGO14) 

Delete memory address and ping pong routines, 
add routines to decode parity error to 

chip. (CHGO15) 

Add retry for hard disk booting. (CHG016) 
Add jump table entry for write to 

parameter memory routine. (CHGO17) 

Add new font, modify display routines. (CHG018) 
Add wait for hard disk ready when 
power-cycling. (CHG019) 

Add setting of video latch whenever boot 
error causes jump to ROM low memory default 
vectors. (CHG020) 

Add fix for memory test/initialization 

bug. (CHG021) 

Add read of disk controller ROM self-test 
results. (CHG022) 

Add skip of disk eject on power-off if any 
disk controller errors occurred. (CHG023) 


Release for testing (rev 3B) with Pepsi systems. 


1)Make Pepsi icon changes. (CHG024) 

2)Add fix for proper setting of carry bit 
on floppy or hard disk boots. (CHG025) 

3)Add fix for video reset on boot from not ready 
Profile. (CHG026) 

Add change to reset SCC for Applebus before 

doing memory test. (CHG027) 

Add fix for service mode bus error problem. (CHG028) 


Release as rev E for Lisa and Pepsi systems. 


1)Add new code to determine system type. (CHG029) 
2)Change default boot device for Lisa 2 
system if no hard disk connected. (CHG030) 
3)Extend timeout for hard disk ready. (CHG031) 
4)Add bug fix for wrong icon display on Lisa 2. 
(CHG032) 
5)Add bug fix for menu display when mouse or 
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@1 


@1 


@1 


12/16/83 
12/21/83 
1/25/84 


2/7/84 


2/8/84 


2/24/84 


BSRS4 
@1,A4 


ney 


keyboard not connected. (CHG033) 

6)Remove save of error code in parameter memory. 
(CHG034) 

Release as rev 'X' for testing 


Release as official rev 'F' for all systems 


1)Add code to properly initialize Profile-reset 
and parity-reset lines for Profile booting (CHG036) 
1)Extend hard disk default read timeout to 16 
seconds for Widget systems. (CHG037) 
2)Add delay after hard disk reset for Widget 
systems. (CHG038) 
Release as rev G for testing 


Release as official rev H 
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0000 
0000 
0000 
0000 
0000 


0000 


0000 


0001 
0001 
0001 
0001 
0000 


0001 


0001 


BRA.S $1 
@1 
. ENDM 
-MACRO RTS4 
JMP (A4) 
. ENDM 
-MACRO BSR2 
LEA @1,A2 
BRA $1 
@1 
. ENDM 
-MACRO BSRS2 
LEA @1,A2 
BRA.S $%1 
@1 
.- ENDM 
-MACRO RTS2 
JMP (A2) 
. ENDM 
-MACRO DISABLE 
MOVE SR, - (SP) 
ORI #$0700,SR 
. ENDM 
-MACRO ENABLE 
MOVE (SP)+,SR 
. ENDM 
. PAGE 
H Conditionals for assembly 
DIAGS .EQU 1 
NEWLISA .EQU 1 
BURNIN EQU 1 
NORESET .EQU 1 
EXTERNAL EQU 0 
ROM16K .EQU 1 
NEWTWIG .EQU 1 


;controls 
;controls 
;controls 
;controls 
;controls 


tex 


assembly of selected diags 
extra code for new LISA's 
code for burnin cycling 
code for reset feature 
listing of externally 


; callable routines only (w/ EQU's) 


;controls 


code to be added when 16K 


; ROM's available 


;controls 


code for new Twiggy firmware 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 


OOFE 
0000 
OOFC 
OOFC 
0000 


0000 


0000 


0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
0001 
0000 
0001 
0000 
0000 
0000 
0001 


0001 
0000 


0000 
OOFE 
0000 
E800 
002F 


OOAF 


0110 


005A 


010E 
00E1 
0000 
005A 
00B4 
010E 
0168 
01C2 
021C 
0276 
0008 


ROMBASE .EQU 
ROMSLCT .EQU 
IOSPACE .EQU 
VIDLTCH .EQU 
DEFVID .EQU 
DEFVID2 .EQU 

.IF DEBUG = 
SCRNBASE .EQU 

.ELSE 

.ENDC 

.IF USERINT 

.ELSE 
RBYTES .EQU 

.ENDC 
TOPOFFSET .EQU 
RLONGS .EQU 
RO .EQU 
R1 .EQU 
R2 .EQU 
R3 .EQU 
RA .EQU 
R5 .EQU 
R6 .EQU 
R7 .EQU 
BUSVCTR .EQU 


RPOOOrFRFOrFO 


$00FE0000 
SOOFE 
$00FC0000 
$OOFCE800 
$2F 


SAF 


$110 


90 


270 
225 

0 
RO+90 
R1+90 
R2+90 
R3+90 
R4+90 
R5+90 
R6+90 
$0008 


; interface 

;controls code for final LISA's 
;controls check for final keyboard 
;controls Apple monitor code 
;controls code for new user interface 
;controls global equate allocation 
;controls code for 2716 version 
;controls code for 2732 version 
;controls format of boot menu 

7; 1 = pull down menu 

;controls code for SCC tests 
;controls code for inverse video check 


;BASE ADDRESS FOR ROM 

;MSB'S OF ROM ADDRESS 

;START OF IO SPACE 

;VIDEO ADDRESS LATCH 

;default setting for video latch 

; (end of 512K board in slot 1) 
;default video latch setting and LED on 


;ptr to base address for video page 


;BYTES FOR EACH DISPLAY ROW 


;offset for first row from top of screen 
jlongs for each row 

7ROW O OFFSET 

;ROW 1 OFFSET, ETC. 


;BUS EXCEPTION VECTOR 


tex 


CHG013 
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000C 
0010 
0028 
002C 
007C 
0080 
0000 
0000 
0000 
0000 
0000 
0480 
0480 
E012 
E010 
A55A 
A55A 
E01E 
E01C 
F000 
F801 
0000 
0001 
0002 
0004 
0005 
0006 
0020 
E018 
E01A 
0000 
0000 
8000 
8000 
2000 
0800 
0800 
E006 
E004 
D090 
A120 
12D0 
F424 
61A8 
7C28 
E848 


ADRVCTR 
ILLVCTR 
L10VCTR 
L11VCTR 
NMIVCT 
TRPVCTO 
MAXADR 
ONEMEG 
HALFMEG 
QTRMEG 
ROW2ADR 
STKBASE 
CALLBASE 
SETUP 
SETUPON 
PATRN 
PATRN2 
PARON 
PAROFF 
MEALTCH 
STATREG 
SFER 
PBIT 
VRBIT 
VIDBIT 
CSBIT 
INVIDBIT 
RETRYCNT 
VTIRDIS 
VTIRENB 
HEX512K 
HEX128K 
HEX96K 
HEX32K 
HEX8K 
HEX2K 
LOMEM 
DG20N 
DG20FF 
ONESEC 
TWOSEC 
FIVESEC 
QTRSEC 
TNTHSEC 
KBDDLY 
HALFSEC 


. EQU 
.EQU 
. EQU 
. EQU 
.EQU 
. EQU 
.EQU 
. EQU 
. EQU 
. EQU 
.EQU 
.EQU 
. EQU 
.EQU 
. EQU 
. EQU 
.EQU 
. EQU 
.EQU 
. EQU 
.EQU 
. EQU 
. EQU 
. EQU 
. EQU 
.EQU 
. EQU 
. EQU 
. EQU 
. EQU 
.EQU 
. EQU 
. EQU 
. EQU 
. EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
. EQU 
. EQU 
.EQU 
. EQU 
.EQU 
. EQU 


$000C 
$0010 
$0028 
$002c 
$007C 
$0080 
$00200000 
$00100000 
$00080000 
$00040000 
$00020000 
$0480 
$0480 
$OOFCE012 
$OOFCE010 
SAA55A55A 
$A55A 
SOOFCEO1E 
$OOFCE01C 
SOOFCF000 
SOOFCF801 


Ou RNEF O 


32 
$OOFCE018 
SOOFCEO1A 
$80000 
$20000 
$18000 
$8000 
$2000 
$0800 
HEX2K 
SOOFCE006 
$SOOFCE004 
$3D090 
ONESEC*2 
ONESEC*5 
ONESEC/4 
ONESEC/10 


<ONESEC*17>/10 


ONESEC/2 


tex 


; ADDRESS EXCEPTION VECTOR 

; ILLEGAL INSTRUCTION VECTOR 
;line 1010 trap 

;line 1111 trap 

;NMI VECTOR LOCATION 


, 


TRAP 0 VECTOR LOCATION 

MAX RAM ADDRESS + 1 (2 meg) 

1 meg in hex 

1/2 meg 

256K 

128K - START OF 2ND MEMORY ROW 
DEFAULT BASE FOR STACK 

STACK BASE FOR USE BY CALL ROUTINE 
ADDRESS TO TURN SETUP BIT OFF 
ADDRESS TO TURN SETUP ON 
PATTERN FOR MEMORY TESTING 
PATTERN FOR MMU TEST 


;PARITY ENABLE 

;PARITY DISABLE 

;MEMORY ERROR ADDRESS LATCH 
;ERROR STATUS REGISTER 


, 
, 


, 


, 


, 


SOFT ERROR BIT 

HARD ERROR (PARITY) BIT 
VR BIT LOCATION 

VID BIT 


; CSYNC BIT 


INVERSE VIDEO BIT 


;RETRY COUNT FOR MEMORY SIZING 
; VERTICAL RETRACE DISABLE 

; VERTICAL RETRACE ENABLE 

7512K in hex 

;128K in hex 

796K in hex 

732K in hex 

78K in hex 

;2K in hex 

;amount of memory initially tested 
;WRITE WRONG PARITY ENABLE 
;WRITE WRONG PARITY DISABLE 

71 second delay constant 

72 second delay 

75 second delay 

70.25 second delay 

70.1 second delay 

71.7 second delay 

70.5 second delay 
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0000 
0000 
FFFF 
0000 
0008 


OOFC 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
OOFC 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 


OOFC 


0040 
8000 
8000 
0003 
0000 


DD81 
0000 
0002 
0004 
0006 
000C 
000E 
0010 
0012 
0014 
0016 
0018 
001A 
001c 
001E 


0004 
D901 
0000 
0000 
0008 
0008 
0010 
0018 
0030 
0038 
0040 
0048 
0060 
0078 


0006 


bDO1C 


; Equates for memory parity error routine 


MSRCHSZ 
VSRCHSZ 
VMSK 
ADRMSK 
PHYTOLOG 


IF 
. ENDC 


. EQU 
. EQU 
. EQU 
. EQU 
.EQU 


64 

32768 
$FFFF8000 
$03 
$80000 


EXTERNAL = 1 


7Main memory error range 

;video memory error range 

;mask for video errors 

;mask for error byte address 
;physical to logical address offset 


; Equates for VIA registers (offsets from $XXD181 or $xXxD101) 


VIA1BASE 
ORB1 
ORA1 
DDRB1 
DDRA1 
T1LL1 
T1LH1 
T2CL1 
T2CH1 
SHR1 
ACR1 
PCR1 
IFR1 
IER1 
PORTAL 


FDIR 
VIA2BASE 
ORB2 
IRB2 
ORA2 
IRA2 
DDRB2 
DDRA2 
T1LL2 
T1LH2 
T2CL2 
T2CH2 
PCR2 
PORTA2 


DSKDIAG 


CSTRB 


.EQU 
. EQU 
. EQU 
.EQU 
. EQU 
.EQU 
. EQU 
.EQU 
.EQU 
. EQU 
. EQU 
.EQU 
. EQU 
.EQU 
. EQU 


. EQU 
.EQU 
. EQU 
.EQU 
. EQU 
. EQU 
. EQU 
.EQU 
. EQU 
. EQU 
. EQU 
.EQU 
. EQU 
.EQU 


.EQU 


. EQU 


SOOFCDD81 
$0 
$2 
$4 
$6 
$c 
SE 
$10 
$12 
$14 
$16 
$18 
$1A 
$ic 
$1E 


4 
$OOFCD901 
$0 

$0 

$8 

$8 

$10 

$18 

$30 

$38 


$OOFCDO1C 


7BASE ADDRESS FOR COPS 6522 
;PORT B OUTPUT REG 

7;PORT A OUTPUT REG 

;PORT B DATA DIRECTION REG 
;PORT A DATA DIRECTION REG 
7;LOW ORDER Tl LATCH 

;HIGH ORDER T1 LATCH 

;LOW ORDER T2 COUNTER 
;HIGH ORDER T2 COUNTER 
;SHIFT REG 

; AUXILIARY CONTROL REG 
;PERIPHERAL CONTROL REG 

; INTERRUPT FLAG REG 
;INTRPT ENABLE REG 

;PORT A WITH NO HANDSHAKE 


;PORT B, BIT 4 HAS FDIR STATE 
;BASE ADDRESS FOR OTHER 6522 
7;PORT B OUTPUT REG 

;PORT B INPUT REG 

7;PORT A OUTPUT REG 

;PORT A INPUT REG 

;PORT B DATA DIRECTION REG 
;PORT A DATA DIRECTION REG 
7;LOW ORDER Tl LATCH 

;HIGH ORDER T1 LATCH 

;LOW ORDER T2 COUNTER 

;HIGH ORDER T2 COUNTER 
;PERIPHERAL CONTROL REG 
;PORT A WITH NO HANDSHAKE 


;port B, bit 6 is disk alive indicator 


;STROBE FOR CONTRAST LATCH 


CHGO15 
CHGO15 
CHGO15 
CHGO15 
CHGO15 


tex 


@ "27 computer Boot ROM 2.48 Listing « 20 of 265 


0000 | 
0000| 
0000 | 
0000| 
0000| 
0000| 
0000| 
0000 | 
0000 | 
0000| 
0000 | 
0000| 
0000| 
0000| 
0000 | 
0000 | 
0000 | 
0000| 
0000| 
0000| 
0000| 
0000 | 
0000 | 
0000 | 
0000 | 
0000| 
0000 | 
0000| 
0000| 
0000| 
0000| 
0000 | 
0000| 
0000| 
0000| 
0000 | 
0000 | 
0000| 
0000| 
0000 | 
0000| 
0000| 
0000| 
0000| 
0000 | 
0000| 
0000| 


OOFC 
0000 
0000 
0000 
0000 


OOFC 
0000 
0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 


0000 
0000 
0000 


AOO1 
0000 
0002 
0004 
0006 


D241 
0002 
0004 
0000 
0002 


0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 


000A 
000B 
000C 
000D 
000E 
OOOF 
0010 
0011 
0012 
0013 
0014 


0015 
0016 


0017 
0018 
0019 


tex 


; Equates for PIA registers (offsets from $XXA001) (SLOT 2) 


PIABASE 
INDATA 
OUTDATA 
INCSR 
OUTCSR 


.EQU 
. EQU 
. EQU 
. EQU 
. EQU 


; Equates for SCC 


SCCBCTL 
ACTL 
SCCDATA 
RXBF 
TXBE 


MMU 
CPUSEL 
VID 

PAR 
CPUINTR 
BUSEXCP 
ADREXCP 
MISEXCP 
ILLEXCP 
TRPEXCP 


VIA1 
VIA2 
IOCOPS 
KBDCOPS 
CLK 
RS232A 
RS232B 
DISK 
IOEXCP 
IOCOPS2 
IOKBD 


MEM 
MPAR 


KBDOUT 
MOUSOUT 
IO1LERR 


. PAGE 


.EQU 
. EQU 
. EQU 
.EQU 
. EQU 


.IF USERINT 


. ELSE 


.EQU 
.EQU 
.EQU 
. EQU 
.EQU 
. EQU 
. EQU 
. EQU 
. EQU 
.EQU 


. EQU 
.EQU 
.EQU 
. EQU 
. EQU 
. EQU 
.EQU 
. EQU 
.EQU 
.EQU 
. EQU 


. EQU 
. EQU 


.EQU 
.EQU 
. EQU 


$O00FCA001 


$0 
$2 
$4 
$6 


$FCD241 


NO 


NOF 


oD AIA UBWNHREO 


;BASE ADDRESS FOR PIA CARD IN SLOT 2 


;SCC channel B control 

;offset to SCC channel A control 
;offset to SCC data regs 
;receive buffer full bit 
;transmit buffer empty bit 


;MMU ERROR 

;CPU selection logic error 
;CPU VIDEO LOGIC ERROR 

;CPU PARITY LOGIC ERROR 
;UNEXPECTED INTERRUPT OCCURRED 
;BUS ERROR 

;ADDRESS ERROR 

;MISC EXCEPTION 

; ILLEGAL INSTRUCTION ERROR 
;line 1111 or 1010 trap 


;COPS VIA ERROR 
;PARALLEL PORT VIA ERROR 
;IO BOARD COPS ERROR 
;KEYBOARD COPS ERROR 
;CLOCK ERROR 

;RS232 PORT A ERROR 
;RS232 PORT B ERROR 
;DISK ERROR 

; UNEXPECTED IO EXCEPTION OCCURRED 
;COPS reset code error 
;I/O or keyboard failure 


;MEMORY ERROR 
;memory parity error 


; KEYBOARD DISCONNECTED 
;MOUSE DISCONNECTED 
71/0 slot 1 failure 
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tex 


0000| 0000 001A IO2ERR .EQU 26 71/0 slot 2 failure 

0000| 0000 001B IO3ERR .EQU 27 ;1/O slot 3 failure 

0000| 0000 O001C ALTBOOT .EQU 28 ;alternate boot key request 

0000| 0000 001D BTIMENU .EQU 29 ;boot menu request 

0000| 0000 OO1E WRMSTRT .EQU 30 ;warm-start indicator 

0000 | 

0000| 0000 OO1F LOOP .EQU 31 ;loop on test 

0000| OE7F FFFF ERRMSK .EQU SOE7FFFFF ;MASK FOR ERROR CHECKING 

0000] 0000 OOOF CPUMSK .EQU $0000000F ;MASK FOR CPU ERROR CHECKING 

0000| 0000 03F0 EXMSK . EQU $000003F0 ;mask for exception error checking 

0000| 001F DCOO IOMSK .EQU $001FDCO00 ;MASK FOR I/O ERROR CHECKING 

0000| 0060 0000 MEMMSK . EQU $00600000 ;mask for memory error checking 

0000| 0180 0000 OTHRMSK .EQU $01800000 ;mask for keyboard/mouse check 

0000] OE00 0000 IOSMSK .EQU $0E000000 ;mask for I/O slot error checking 

0000| OO1E 3FFA CONTMSK .EQU $001E3FFA ;mask for CONTINUE option - allow continue 
0000] ; for MMU,VIDEO,CLK,RS232,MEM,MPAR,KBDOUT, 
0000| ; MOUSOUT,and IO slot errors 

0000| 0018 3000 SCANMSK .EQU $00183000 ;mask for results of initial keyboard scan 
0000] 7000 0000 ALTBMSK .EQU $70000000 ;mask for D7 when CONTINUE option invoked 
0000| OO8F FFFF BOOTMSK .EQU SOO8FFFFF ;mask for errors that continue to boot attempt 
0000| OO1F FFFF CPIOMSK .EQU SOO1FFFFF ;mask for checking for CPU and IO errors 
0000 | . ENDC 

0000 | 

0000 | ; Equates for error codes displayed to user 

0000| 

0000| .IF NEWIWIG = 0 

0000| . ELSE 

0000] 0000 0028 EMMU .EQU 40 ;MMU ERROR 

0000| 0000 0029 ECPUSEL .EQU 41 ;CPU selection logic error 

0000| 0000 002A EVID .EQU 42 ;CPU VIDEO LOGIC ERROR 

0000] 0000 002B ECPAR .EQU 43 ;CPU PARITY LOGIC ERROR 

0000| 0000 002C ECPUINTR .EQU 44 ; UNEXPECTED INTERRUPT OCCURRED 

0000] 0000 002D EBUSEXCP .EQU 45 ;BUS ERROR 

0000] 0000 002E EADREXCP .EQU 46 ;ADDRESS ERROR 

0000| 0000 002F EMISEXCP .EQU 47 ;MISC EXCEPTION 

0000] 0000 0030 EILLEXCP .EQU 48 ; ILLEGAL INSTRUCTION ERROR 

0000| 0000 0031 ETRPEXCP . EQU 49 ;line 1111 or 1010 trap 

0000 | 

0000| 0000 0032 EVIA1 .EQU 50 ;COPS VIA ERROR 

0000] 0000 0033 EVIA2 .EQU 51 ;PARALLEL PORT VIA ERROR 

0000| 0000 0034 EIOCOP .EQU 52 ;IO BOARD COPS ERROR 

0000] 0000 0035 EKBDCOP .EQU 53 ;KEYBOARD COPS ERROR 

0000] 0000 0036 ECLK .EQU 54 ;CLOCK ERROR 

0000| 0000 0037 ERS232A .EQU 55 ;RS232 PORT A ERROR 

0000] 0000 0038 ERS232B .EQU 56 ;RS232 PORT B ERROR 

0000] 0000 0039 EDISK .EQU 57 ;DISK ERROR 

0000| 0000 003A EIOEXCP .EQU 58 ; UNEXPECTED IO EXCEPTION OCCURRED 
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0000| 
0000| 
0000 | 
0000| 
0000| 
0000| 
0000 | 
0000 | 
0000 | 
0000| 
0000| 
0000 | 
0000 | 
0000| 
0000 | 
0000| 
0000| 
0000| 
0000 | 
0000| 
0000| 
0000| 
0000| 
0000| 
0000 | 
0000| 
0000 | 
0000 | 
0000| 
0000 | 
0000| 
0000| 
0000| 
0000| 
0000 | 
0000 | 
0000| 
0000| 
0000 | 
0000| 
0000 | 
0000| 
0000| 
0000| 
0000| 
0000| 
0000| 


0000 
0000 


0000 
0000 
0000 


0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 


0000 
0000 
OOFE 
OOFE 
0002 
0000 
0000 
0000 


0000 
0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
OOFC 
OOFC 


003B 
003C 


0046 
0047 
004B 


003D 
003E 


0000 
0001 
0002 
0003 
0004 
0005 


0006 
0007 


8000 
8008 
8000 
8008 
0000 
0100 
0700 
O8FF 


0900 
O6FF 
0901 
OFFE 


OFOO 
OOFF 
0co00 
8008 
8000 
8008 
8000 


tex 


EIOCOP2 .EQU 59 ;IO0 board COPS code error 
EIOKBD .EQU 60 ;1I/O or keyboard error 

EMEM .EQU 70 ;R/W MEMORY ERROR 

EPAR .EQU 71 ;PARITY ERROR 

EBOOT .EQU 75 ;general boot failure error code 


; Special COPS error codes for burnin cycling 


SERR1 . EQU 61 ;error setting initial time 
SERR2 .EQU 62 ;error setting alarm 
. ENDC 
; Secondary status flag (STATFLGS) equates 
NORSTRT . EQU 0 ;governs display of restart button 
NOCONT . EQU 1 ;error disallows Monitor CONTINUE option 
MSBUTN .EQU 2 ;mouse button detected 
CMDFLG .EQU 3 ;emd button up/down 
MOUSE .EQU 4 ;mouse button up/down 
CHKCMD . EQU 5 7if =1 user input from keyboard must 
; be prefaced by CMD key 
BIN . EQU 6 ;flag for button use 
MENU .EQU 7 ;flag for menu use 
7 MMU equates 
MMUSADRL .EQU $00008000 ;STARTING MMU LIMIT ADDRESS 
MMUSADRB .EQU $00008008 ;STARTING MMU BASE ADDRESS 
MMUEADRL .EQU SOOFE8000 7ENDING MMU LIMIT ADDRESS 
MMUEADRB .EQU SOOFE8008 ;ENDING MMU BASE ADDRESS 
ADR128K . EQU $00020000 ;128K IN HEX - INCR FOR MMU REGS PTRS 
PAG128K .EQU $00000100 7;128K PAGE INCREMENT FOR ORG REGS 
MEMLMT .EQU $0700 ;LIMIT VALUE FOR MEMORY SEGMENTS 
NMEMLMT .EQU SO8FF ; INVERSE OF VALUE (HIGH NIBBLE IGNORED) 
.IF ROM4K = 0 
IOLMT .EQU $0900 ;LIMIT VALUE FOR I/O SEGMENT 
NIOLMT .EQU SO6FF ; INVERSE 
IOLMT2 .EQU $0901 ;limit value for no reset feature 
RSTLMT .EQU SOFFE ;inverse mask for no reset feature 
. ELSE 
. ENDC 
SPLMT .EQU SOFOO ;LIMIT VALUE FOR SPECIAL I/O SPACE 
NSPLMT . EQU SOOFF ; INVERSE 
INVPAG . EQU $0C00 ; INVALID PAGE LIMIT 
MMUOB .EQU $00008008 ;ADRESS OF ORG REG 0 (FOR LOW MEMORY) 
MMUOL .EQU $00008000 ;ADDRESS OF LIMIT REG 0 
MMU126B .EQU $00FC8008 ;ADDRESS OF ORG REG 126 (FOR I/O SPACE) 
MMU126L . EQU $00FC8000 ; ADDRESS OF LIMIT REG 126 
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0000 | 
0000 | 
0000 | 
0000| 
0000 | 
0000 | 
0000 | 
0000 | 
0000| 
0000| 
0000| 
0000| 
0000| 
0000 | 
0000| 
0000| 
0000| 
0000| 
0000| 
0000| 
0000| 
0000| 
0000| 
0000 | 
0000| 
0000| 
0000 | 
0000 | 
0000| 
0000| 
0000 | 
0000| 
0000 | 
0000| 
0000| 
0000| 
0000| 
0000| 
0000 | 
0000 | 
0000| 
0000| 
0000| 
0000| 
0000 | 
0000 | 
0000 | 


OOFE 
OOFE 
OOFC 
OOFC 
OOFC 
OOFC 


0000 
0000 
0000 
0000 
0000 
0000 


OOFE 


FFFF 
FFFF 
FFFF 


FFFF 


0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 
0000 


0000 


MMU127B 
MMU127L 
SEG1ON 
SEGLOFF 
SEG20N 
SEG20FF 


. EQU 
.EQU 
. EQU 
. EQU 
. EQU 
. EQU 


; Equates for serial 


Dlycnst equ 
TKiller equ 
BytesPerRead equ 
WordsPerRead equ 
HalfSize equ 
ScrachSize equ 
Snum equ 
dient equ 
dSavArry equ 
dScrach equ 
dStack .equ 


$00FE8008 
$00FE8000 
SOOFCEOOA 
$O00FCE008 
SOOFCEOOE 
$O00FCEO0C 


number read routine 


9 

172 

7 
BytesPerRead*2 
Words PerRead*8 
HalfSize*2 


$0£e8000 
-4 
dLcnt-4 


dScrach 


; Equates for COPS and keyboard scan 


MOUSDWN 
CMDKEY 
ALPHKEY 


RSTCODE 


.EQU 
. EQU 
. EQU 


.IF NEWIWIG = 0 
. ELSE 


.EQU 
. EQU 
. EQU 
.EQU 
.EQU 
. EQU 
.EQU 
.EQU 
.EQU 
. EQU 
.EQU 
. EQU 


. ENDC 


.EQU 


$86 
SFF 
$FD 


$F4 
$F1 
$F2 
$FO 
SEE 
SED 
$FB 
$EO 
SEQ 
SAF 
SFE 
$c4 


$80 


; ADDRESS 
; ADDRESS 
;CONTEXT 
;CONTEXT 
;CONTEXT 
;CONTEXT 


OF BASE REG 127 (FOR ROM SPACE) 
OF LIMIT REG 127 

SELECTION BIT 1 ENABLE 
SELECTION BIT 1 DISABLE 
SELECTION BIT 2 ENABLE 
SELECTION BIT 2 DISABLE 


;constant for delay loop 
;time killer constant 
;bytes per read 


;during reading one byte fits into one word 


shalf the size of ScrachSize 
7size of the scrach array 
;I1/O segment 126 

;location of SN1 & SN2 
;special I/O segment 127 


;displacement for local variable LOOP COUNTER 


;disp. for Save Array pointer 
dSavArry-ScrachSize 


;disp. for pointer to local array SCRACH 


;disp. for the Link 


;MOUSE BUTTON PRESSED 
;LEFT COMMAND KEY 
;ALPHA LOCK KEY "DOWN" 


pe bi 
sre 
313" 
7A! 
;'B! 
“Le! 


key 
key 
key 
key 
key 
key 


- for Twiggy #1 boot 

- for Twiggy #2 boot 

- for Profile boot 

- for I/O slot #3, port 1 
- for I/O slot #3, port 2 
- for I/O slot #3, port 3 


;"D' key - for I/O slot #1, port 4 
;'E' key - for I/O slot #2, port 4 
;'F' key - for I/O slot #3, port 4 
;Right ENTER key - for Monitor invoking 
;Shift key - used for power-cycling 
;'P' key - for Power-cycling 


;reset code 


tex 
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0000| 0000 OOFD KUNPLG .EQU $FD jkeyboard unplugged 

0000] 0000 OOFE ICERR .EQU SFE ;I1/O board COPS RAM error 
0000| 0000 OOFF KCERR .EQU SFF ;keyboard COPS RAM error 
0000| 0000 0007 MSUNPLG . EQU $07 ;mouse unplugged 

0000| 0000 0087 MSPLG . EQU $87 ;mouse plugged in 

0000| 

0000 | .IF EXTERNAL = 1 

0000| . ENDC 

0000| 

0000 | ; Equates for Boot device id's 

0000 | IF NEWTWIG = 0 

0000] . ELSE 

0000| 0000 0000 TWIG1 .EQU $0 ; TWIGGY DRIVE #1 

0000| 0000 0001 TWIG2 .EQU $1 ; TWIGGY DRIVE #2 

0000| 0000 0002 PROFILE .EQU $2 ;PROFILE HARD DISK 

0000| 0000 0003 IO1PORT1 .EQU $3 ;I/O SLOT 1, port 1 

0000| 0000 0004 IO1PORT2 .EQU $4 ;I/O SLOT 1, port 2 

0000| 0000 0006 IO2PORT1 .EQU $6 ;I/O SLOT 2, port 1 

0000| 0000 0007 IO2PORT2 .EQU $7 ;I/O SLOT 2, port 2 

0000| 0000 0009 IO3PORT1 .EQU $9 7;I1/O SLOT 3, port 1 

0000| 0000 000A IO3PORT2 .EQU SA ;1/O SLOT 3, port 2 

0000| 0000 OOOF PC .EQU SF ;power cycle mode 

0000| 0000 0010 MON .EQU $10 jabort boot, go to monitor id 
0000| 

0000] . ENDC 

0000 | . IF USERINT = 0 

0000| . ENDC 

0000| 

0000 | ; Equates for device code display (ASCII codes) 

0000] 

0000 | .IF NEWTWIG = 0 

0000] . ELSE 

0000| 0000 0031 TWG1 .EQU $31 ;Twiggy drive #1 

0000| 0000 0032 TWG2 .EQU $32 ;Twiggy drive #2 

0000| 0000 0033 PRO .EQU $33 ;Profile 

0000| 0000 0034 ros1 .EQU $34 7;I/O slot 1 

0000| 0000 0037 Ios2 .EQU $37 71/0 slot 2 

0000| 0000 0041 I0s3 .EQU $41 71/0 slot 3 

0000| . ENDC 

0000| 

0000 | eran Se EB ee ee Oe ES Ee 
0000 | ; Equates for Disk controller shared memory/Twiggy boot 

0000 | ae ee ap ae ee ree 
0000| 

0000| 0000 0001 TWIGGY .EQU 1 ;controls Twiggy code assembly (1 = YES) 
0000| OOFC C001 DISKMEM .EQU $00FCC001 ;base address of shared memory 
0000| 0000 0002 CMD .EQU 2 ;offset for command byte 


tee 
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0000| 0000 0004 DRV .EQU CMD+2 ;offset for drive # 

0000] 0000 0006 SIDE .EQU DRV+2 ;side # 

0000] 0000 0008 SCTR .EQU SIDE+2 ;sector # 

0000| 0000 000A TRAK .EQU SCTR+2 ;track # 

0000 | 

0000| .IF NEWIWIG = 0 

0000| . ENDC 

0000| .IF NEWIWIG = 1 

0000| 0000 000C SPEED .EQU TRAK+2 ;motor speed control 

0000] 0000 O00E CNFRM .EQU SPEED+2 ;confirm for format cmd 

0000| 0000 0010 STAT .EQU CNERM+2 ;error status 

0000| 0000 0012 INTLV .EQU STAT+2 ;interleave factor CHG022 
0000| 0000 0014 TYPE .EQU INTLV+2 ;drive type id CHGO009 
0000| 0000 0016 STST .EQU TYPE+2 ;self-test result CHG022 
0000| 0000 0030 ROMV .EQU $30 ;ROM version # 

0000] 0000 0058 RTRYCNT .EQU $58 ;retry count 

0000| 0000 O05E INTSTAT .EQU S5E ;interrupt status 

0000| 0000 OOBA CHKCNT .EQU SBA ;data checksum error count 

0000| 0000 00C4 CHKCNT2 .EQU $c4 jaddress checksum error count 

0000] 0000 03E8 DSKBUFF .EQU $3E8 ;start of disk buffer 

0000| 0000 0400 DSKDATA .EQU DSKBUFF+24 ;first 12 bytes are header 

0000| OOFC C031 DISKROM .EQU SFCC031 ;absoulte address for disk ROM id 

0000] 0000 0005 SLOTMR .EQU 5 ;id bit for slow timers CHG029 
0000] 0000 0006 FASTMR .EQU 6 jid bit for fast timers CHG029 
0000| 

0000| 0000 0000 READS .EQU 0 ;xread sector w/checksum 

0000] 0000 0001 WRT .EQU 1 

0000| 0000 0002 UNCLAMP .EQU 2 ;unclamp diskette 

0000] 0000 0003 FMT .EQU 3 

0000| 0000 0004 VFY .EQU 4 ;verify disk 

0000] 0000 0009 CLAMP .EQU 9 ;clamp disk 

0000| 0000 OOFF OK .EQU SEF ;confirmation for format 

0000 | 

0000] 0000 0083 SEEK .EQU $83 ;seek cmd 

0000 | . ENDC 

0000 | 

0000] 0000 0081 EXRW .EQU $81 ;execute cmd 

0000| 0000 0085 CLRSTAT .EQU $85 ;clear status cmd 

0000] 0000 0086 ENBLINT .EQU $86 ;enable intrpt 

0000| 0000 0087 DSABLINT .EQU $87 ;disable intrpt 

0000] 0000 0088 SLEEP .EQU $88 ;loop in RAM cmd 

0000] 0000 0089 DIE .EQU $89 ;loop in ROM cmd 

0000 | 

0000] 0000 0000 DRV1 .EQU 0 ;drive #1 ID 

0000] 0000 0080 DRV2 .EQU $80 ;drive #2 ID 

0000] 0000 0001 TRK1 .EQU 1 ;track 1 

0000] 0000 0000 TOPSIDE .EQU 0 ;top side of disk 


tex 
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0000| 
0000| 
0000| 
0000| 
0000| 
0000| 
0000| 
0000 | 
0000| 
0000| 
0000| 
0000| 
0000 | 
0000| 
0000| 
0000 | 
0000 | 
0000| 
0000| 
0000 | 
0000| 
0000| 
0000| 
0000| 
0000| 
0000| 
0000| 
0000 | 
0000 | 
0000| 
0000| 
0000| 
0000 | 
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0000| 
0000 | 
0000 | 
0000| 
0000 | 
0000| 
0000| 
0000 | 
0000 | 
0000 | 
0000| 
0000| 
0000| 


0000 


0000 
0000 
0001 
0002 
0000 
0000 


OOFC 
OOFC 
OOFC 
0000 


OOFC 
OOFC 
OOFC 
0000 
0000 
OOFC 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0012 
00Cc0 
0180 
0018 
001Cc 


0001 


000C 
0200 
FFF4 
0000 
O6A6 
O6A6 


c161 
c161 
C17D 
0008 


c181 
C189 
C18D 
0007 
0006 
C1FD 
0020 


0007 
0007 
0014 
0016 
0017 
0019 
0026 
0027 


0000 
0000 
0000 
0000 
8000 


BOTSIDE 


HDRLEN 
SECLEN 
TWGHDR 
TWGDATA 
LASTBLK 
DSKSIZE 


; Equates for parameter memory used by 


STATSTRT 
STATSAV 
STATSUM 
STATWRDS 


PMSTRT 
DVCCODE 
MEMCODE 
MOUSEON 
EXMEM 
PMCHKSM 
PMWRDS 


. EQU 


. IF NEWIWIG 

. ENDC 

. IF NEWIWIG 
. EQU 
.EQU 
.EQU 
.EQU 
.EQU 
. EQU 


. ENDC 


. EQU 
. EQU 
. EQU 
.EQU 


.EQU 
. EQU 
.EQU 
. EQU 
.EQU 
.EQU 
. EQU 


12 

512 
$1FFF4 
$20000 
1702 
1702 


$FCC161 
STATSTRT 
$FCC17D 
8 


$FCC181 
$FCC189 
$FCC18D 
7 

6 
$FCC1FD 
32 


; Equates for disk errors 


DRVERR 
NODISK 
WRPERR 
CLMPERR 
RDWRERR 
UCLMPERR 
BADTHDR 
TIMOUT 


CMDTIME 
FDIRTIME 
VFYTIME 
EJCTTIME 
DSKTMOUT 


.IF NEWTIWIG = 


. ENDC 


.IF NEWTIWIG = 


. EQU 
. EQU 
. EQU 
.EQU 
.EQU 
.EQU 
. EQU 
.EQU 


. EQU 
. EQU 
. EQU 
. EQU 
. EQU 


0 


1 


07 
DRVERR 
20 
22 
23 
25 
38 
39 


$120000 
$c00000 
<FDIRTIME*2> 
$180000 
$1C8000 


tex 


;bottom side of disk 


;length of Twiggy header 
;length of one sector 
jaddress to load boot header 
;address to load boot data 
jlast block # 

;total amount of blocks 


boot ROM 


;start of special parameter memory area for boot ROM 
;save of error code 

;checksum word for special area 

;length in words (16 bytes) 


;start of system paramter memory 
;boot device code 

;mouse/memory test indicator byte 
;bit for mouse attached (l=yes) 

;bit for extended memory test (l=yes) 
;checksum word 

;length in words (64 bytes) 


;new firmware, new error codes 
;no disk in drive 

;another name for it 

;write protect error 

;clamp error 

;read error 

junclamp error 

;bad header (not a boot file id) 
;timeout error 


;timeout for taking command (15 secs) 
;timeout for setting FDIR (2 mins) 

;timeout for verify disk operation (4 mins) 
;timeout for ejecting disk (15 secs) 
;timeout for initial speed check (15 secs) 
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0000| 
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0000| 
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0000| 
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0000 | 
0000| 
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0000| 
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0000| 
0000| 


00CO0 
0180 


0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 


OOFC 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
C140 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0001 
0000 
0000 
0002 
0000 


0000 
0000 


0000 
0001 
0002 
0004 
0005 
0006 


0002 
0003 


cols 


0001 
0000 
0001 
0304 
01B4 
01B4 
01B5 
01B6 
01B6 
Ccooo 
0005 
0000 
0001 
0002 
0003 
0004 
0005 
FFEC 
0004 
AAAA 
0000 
0014 


INSRTTIM .EQU FDIRTIME ;timeout for disk to be inserted (2 mins) 
FMTTIME . EQU VFYTIME ;timeout for format operation 


. ENDC 


; Equates for disk interrupt status 


DSK1IN .EQU 0 ;drive #1 disk in place 
BUTN1 .EQU 1 ;drive #1 button pushed 
RWF1 .EQU 2 ;read/write/format done on drive #1 
DSK2IN .EQU 4 ;drive #2 disk in place 
BUTN2 .EQU 5 ;drive #2 button pushed 
RWE2 .EQU 6 ;read/write/format done on drive #2 


; Equates for disk status command response 


DSKIN .EQU 2 ;disk inserted 

BUIN .EQU 3 ;button pressed 

DRVTYPE .EQU $FCC015 ;drive type id (0 = Twiggy, CHG009 
; 1 = single SONY, 2 = double SONY) CHGO09 


PROFLE . EQU 1 ;controls assembly of Profile code 
OcD .EQU 0 ;OPEN CABLE DETECT INPUT 

BSY .EQU 1 ;BUSY LINE INPUT 

CMDBUFR . EQU $304 ;BUFFER FOR COMMAND BYTES 

STATBFR .EQU $1B4 ;STATUS BYTE BUFFER (uses BOOTDATA area) 
STAT1 .EQU $1B4 ;STATUS BYTE 1 

STAT2 .EQU $1B5 ;STATUS BYTE 2 

STAT3 .EQU $1B6 ;STATUS BYTE 3 

STAT4 .EQU $1B6 ;STATUS BYTE 4 

STATMSK .EQU $C140C000 ;MASK FOR DON'T CARE STATUS BITS CHGO16 
PCMDSZ .EQU 5 ;BYTES FOR READ CMD - 1 

PCMD .EQU 0 ; COMMAND CODE 

BLKH .EQU 1 ; HIGH BLOCK ADDRESS 

BLKM .EQU 2 ; MID BLOCK ADDRESS 

BLKL .EQU 3 ; LOW BLOCK ADDRESS 

RETRY .EQU 4 ; RETRY COUNT 

THRESH .EQU 5 ; THRESHOLD COUNT 

HDRBUFR .EQU $1FFEC ;BUFFER FOR HEADER 

FILEID .EQU 4 ; OFFSET TO FILEID 

BOOTPAT .EQU SAAAA ;FILEID FOR BOOT PATTERN 

DATABFR . EQU $20000 ;BUFFER FOR DATA 

HDRSIZE . EQU 20 ;HEADER LENGTH 
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0000 
0120 
0090 
0018 
0000 
0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 


OOFC 
OOFC 
OOFC 
0000 
0000 
0000 
0002 
0002 
0002 
0000 
0000 
0000 
0000 


0000 
0000 
0000 
0000 


0200 
0000 
0000 
0000 
0500 
FFFF 
000A 
0003 


0050 
0051 
0052 
0053 
0054 
0055 


0001 
4001 
8001 
000E 
000D 
000C 
0000 
0002 
0004 
8001 
OFFF 
1000 
1800 


005A 
005B 
005C 
005D 


BLKSIZE . EQU 512 
STRTIME .EQU $1200000 
RSTRTIME . EQU $900000 
RDTIME . EQU $180000 
BSYTIME .EQU $0500 
RSPTIME . EQU SFFFF 
RCNT .EQU 10 

TCNT . EQU 3 


tex 


;BLOCK SIZE 

;STARTUP TIMEOUT after power-up = about 3 minutes 
;STARTUP TIMEOUT after reset = ABOUT 100 SECS 
;READ TIMEOUT = ABOUT 16 SECS 

;Wait for busy high = about 10 ms 

;RESPONSE TIMEOUT = ABOUT 500 ms 

7BOOT RETRY COUNT 

; THRESHOLD COUNT FOR 30% SPARING 


CHG037 


; Equates for Profile boot error conditions 


.IF NEWTWIG = 0 


. ELSE 
NODSK . EQU 80 
DSKBSY .EQU 81 
BADRSP .EQU 82 
STATNZ . EQU 83 
BADHDR .EQU 84 
TMOUT . EQU 85 

. ENDC 


SLOT1L EQU $SFC0001 
SLOT2L EQU SFC4001 
SLOT3L EQU SFC8001 
STBIT .EQU 14 
ICBIT .EQU 13 
TSTBIT .EQU 12 
STENTRY EQU $20000 
BTENTRY EQU $20002 
ICONPTR EQU $20004 
APPLENET EQU $8001 
APPLQUAL EQU SOFFF 
TSTCRD EQU $1000 
TSTQUAL EQU $1800 


; Error codes for I/O slot booting 


.IF NEWIWIG = 0 


. ELSE 
Noc .EQU 90 
INV .EQU 91 
BADSM .EQU 92 
BADST .EQU 93 
.ENDC 


;DISK NOT ATTACHED 
;DISK NOT READY 
;UNEXPECTED RESPONSE 
;NONZERO STATUS BYTE 
; INCORRECT HEADER 
;TIMEOUT ERROR 


;I/O slot 1 SL address 

7;1/O slot 2 SL address 

;I/O slot 3 SL address 

;status bit in id 

;icon bit in id 

;test card bit in id 

;entry point for status routine 
;boot routine entry point 
;pointer to icons, if any 

jid for Applenet card 
;qualifier for Applenet search 
;id for test card 

;qualifier for test card search 


;no card installed 
;not bootable card 
;invalid checksum 
;bad status returned 
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0000| 
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0000| 
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0000 | 
0000| 
0000 | 
0000| 
0000 | 
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0000 | 
0000| 
0000 | 
0000 | 
0000 | 
0000| 


OOFC 
OOFC 
OOFC 
OOFC 
OOFC 
OOFC 
OOFC 
OOFC 
OOFC 
OOFC 
OOFC 
OOFC 
OOFC 
OOFC 
0000 
1000 
0000 
0000 
00E0 
0003 
0000 
0010 


0000 
0000 
0000 


0000 


c191 
C193 
C195 
C197 
C199 
C19B 
C19D 
C19F 
C1A1 
C1B1 
cicl 
Cc1c3 
Cc1c5 
C1FF 
0000 
0000 
01BC 
01BD 
F000 
Ccooo 
9000 
0000 


003F 
000D 
0008 


00F3 


TIMFLG 
MINSAV 
DSKCNTH 
DSKCNTL 
CLKSAVE 
ALRMSAV 
CYCLCNT 
CYCLVAL 
MINCNT 
ENDPM 
SET1 
SET2 
HOUR 
MINUTE 
ONEHOUR 
ONEMIN 
TENSECS 
DLYTIME 


.EQU $FCC191 
.EQU $FCC193 
. EQU $FCC195 
.EQU $FCC197 
. EQU $FCC199 
.EQU $FCC19B 
. EQU $FCC19D 
. EQU $FCC19F 
. EQU $FCC1A1 
. EQU $FCC1B1 
.EQU $FCC1C1 
. EQU $FCC1C3 
.EQU $FCC1C5 
.EQU $FCC1FF 


. EQU $0 

. EQU $10000000 
.EQU $1BC 

.EQU $1BD 


-EQU $O0EOF000 
-EQU $0003C000 
-EQU $00009000 
-EQU $100000 


; Ascii code equates 


QUESTN 
RET 
BS 


.EQU $3F 
. EQU $0D 
.EQU $08 


; Keyboard code equates 


KEY4 


. EQU $F3 


tex 


;first pass flag (01 = no) 
;save of last hour value from clock 
;loop count 


;flag to indicate hour save needed 
;save of minute value for Twiggy test 
;disk read error count - high byte 
;disk read error count - low byte 
;saved clock value 

;saved alarm value last set 

;count of minutes for power cycling 
7;# of mins between power cycles 
;count of minutes for debug mode 

;end of parameter memory 

;initial alarm/year/dd setting 
;d/hh/mm/ss/t setting 

;location of latest hour value read 
;location of latest minute value read 
;one hour setting for alarm 

;one minute setting for alarm 

;ten seconds 

;delay for screen display 


7; CR 
; backspace 
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O00E4 
00E1 
00E2 
00E3 
00DO 
OOF6 
OOFF 
OO7F 
0006 


02Cc0 
0300 


0300 
0302 


000C 


005A 
02D0 
016C 
O5A0 
OSFA 
TEF8 
5555 


0014 
0002 
0056 
0140 
00B4 
002D 
0017 
0041 
070A 


0031 
0006 
004E 
00A4 


KEY5 
KEY6 
KEY7 
KEY8 
KEY9 
SKEY 
CmdDwn 
CmdUp 
MousUp 


. EQU 
.EQU 
. EQU 
. EQU 
.EQU 
. EQU 
.EQU 
.EQU 
.EQU 


; Low memory usage 


KBDBFR 
KBDEND 


. EQU 
.EQU 


.IF USERINT 


. ELSE 


CRTROW 
CRTCOL 


. ENDC 


MAXTEST 


. EQU 
. EQU 


. EQU 


.IF USERINT 


. ELSE 
; Equates for new user interface code 


ROWBYTES 
MaxX 
MaxY 
MENULINE 
DESKLINE 
DESKLMT 
DESKPATRN 


WROW 
wcoL 
WINDWIDTH 
WINDHIGH 
WMIDROW 
WMIDCOL 
W14COL 
W34COL 
WINDSTRT 


ALBOXROW 
ALBOXCOL 
ALRTWIDTH 
ALRTHIGH 


. EQU 
. EQU 
. EQU 
. EQU 
. EQU 
.EQU 
. EQU 


.EQU 
. EQU 
.EQU 
.EQU 
.EQU 
. EQU 
. EQU 
.EQU 
. EQU 


.EQU 
. EQU 
. EQU 
. EQU 


tex 


27'S! 

216! 

paar 2 

;'8' 

;'9' 

2S 

;Command key down 
;Command key up 
;Mouse button up 


;keyboard buffer start 
; and end (64 chars max) 


;display row ptr 
;display col ptr 


;mMax test # for LOOP option 


90 ;width of screen in bytes 

720 ;width in pixels 

364 ;length in pixels 

1440 ;bottom line loc for menu 

1530 ;top line loc for desktop 

32760 ;bottom line loc for desktop 

$AAAA5555 ;pattern for "grey" desktop 

20 ;window row 

2 ;starting window col 

86 ;width of window in bytes 

320 sheigth of window in pixel lines 
<WINDHIGH/2>+WROW ;middle row in window 
<WINDWIDTH/2>+WCOL ;middle col in window 
<WINDWIDTH/ 4>+WCOL ;col 1/4 across window 
<WINDWIDTH/ 4>*3+WCOL ;col 3/4 across window 
<WROW*ROWBYTES>+WCOL ;start of window 

49 ;starting row for alert box 
6 ;starting col for alert box 
78 ;width of alert box 

164 ;heigth of alert box 
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0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 


0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 


0000 
0000 


1140 
0083 
002D 


000A 
001c 
10E0 
0392 
0045 
0034 
1876 
2956 
3A36 
1c08 
2CE8 
3DC8 


O05A2 
000B 
03DE 
0012 
0111 
0658 
0010 


0007 
20B4 


0012 
0022 
OBF4 


0042 
0014 
0168 
0014 
071E 
0018 
0018 


07BC 
0014 


OEDA 
0042 


ALRTSTRT .EQU 
MIDALROW .EQU 
MIDALCOL .EQU 
BINWIDTH .EQU 
BTNHIGH .EQU 
BTNSPC .EQU 
BTNMSPC .EQU 
BTNROW .EQU 
BTNCOL .EQU 
BIN1STRT .EQU 
BIN2STRT .EQU 
BTN3STRT .EQU 
BTNIMSG .EQU 
BTN2MSG .EQU 
BTN3MSG .EQU 
MENUSTRT .EQU 
MENULEN .EQU 
MENUSPC .EQU 
MENUWIDTH .EQU 
MENULOC .EQU 
MENU1MSG .EQU 
MBARLEN .EQU 
MITEMS .EQU 
MENUEND .EQU 

.IF BMENU = 
BMENUWIDTH .EQU 
BMENULEN .EQU 
BMENUSPC .EQU 

.ENDC 
DBOXWIDTH .EQU 
DBOXHIGH .EQU 
DBOXTOP .EQU 
DBOXLEFT .EQU 
DBOXSTRT .EQU 
DBOXROW .EQU 
DBOXCOL .EQU 
SVCTOP .EQU 
SVCLEFT .EQU 
SVCSTRT .EQU 
SVCWIDTH .EQU 


tex 


<ALBOXROW*ROWBYTES>+ALBOXCOL ;upper left corner of alert box 


ALBOXROW+<ALRTHIGH/2> ;middle row of alert box 
ALBOXCOL+<ALRTWIDTH/2> ;middle col of alert box 

10 ;width of button 

28 ;heigth of button 

48*ROWBYTES ;Space between upper left corner of buttons 
<10*ROWBYTES>+BTINWIDTH+4 ;position of button label relative to button 
ALBOXROW+20 ;starting display row for buttons 
52 ;starting display col for buttons 
<BTNROW*ROWBYTES>+BINCOL ;location of first button 
BTN1STRT+BTNSPC ;location of second button 
BIN2STRT+BINSPC ;location of third button 
BTN1STRT+BTNMSPC ;location of button descriptions 
BIN2STRT+BTNMSPC 

BIN3STRT+BTINMSPC 

MENULINE+2 ;start of pull down menu 

11 ;length of menu per entry 

990 ;vertical space between menu entries 

18 ;width of pull down menu 

273 7start pt for menu heading 

MENUSTRT+182 ;location of first menu entry 

16 ;heigth of menu bar 

7 ;number of menu items 


MENUSTRT+<MITEMS*MENUSPC> ;bottom of menu 


MENUWIDTH ;width of pull down menu 
34 ;length of each boot menu entry 
<BMENULEN* 90> ;vertical space between boot menu entries 


84-MENUWIDTH ;width of dialog box 
20 ;yheigth of dialog box 
4*ROWBYTES ;dialog box spacing down from menu line 
MENUWIDTH+2 ;dialog box spacing left from menu 
MENUSTRT+DBOXLEFT+DBOXTOP ;start of dialog box 
<DBOXSTRT/90>+4 ;pixel row for dialog msg 
MENUWIDTH+6 ;byte col for dialog msg 
<DBOXHIGH+2>*ROWBYTES ;service window spacing down 

; from top of dialog box 
MENUWIDTH+2 ;service window spacing left from menu 
DBOXSTRT+SVCTOP ;left corner for service window 
84-MENUWIDTH ;width of service window 
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0000 
0000 
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0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
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0000 
0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0140 


003E 
0018 
012C 
001B 
014C 
0058 
000A 
0042 
001B 
0008 
0001 
000A 


0006 
0020 


0031 
000A 
1144 
0046 
0054 
0040 
000E 
005B 
004B 
0055 
0014 
000E 


1DF6 
1E04 
1E12 
1E20 


0073 
0010 
287E 
0073 
0010 
0097 
0012 
OO7E 
0018 
0010 
0004 


SVCHIGH 


FIRSTROW 
FIRSTCOL 
ROWSLEFT 
CHARROWS 
LASTROW 
LASTCOL 
ROWLINES 
ROWLEN 
NROWS 
CHRHIGH 
CHRWIDTH 
CHRSPC 


ICONWIDTH 
ICONHIGH 


TSTROW 
TSTCOL 
TSTWSTRT 
TSTWWIDTH 
TSTWHIGH 
TSTMROW 
TSTMCOL 
MIDTSTROW 
CHKROW 
TSTIROW 
TSTICOL 
TSTISPC 


CPUSTRT 
MEMSTRT 
IOSTRT 
XCRDSTRT 


ERRROW 
ERRCOL 
ERRSTRT 
ALRTROW 
ALRTCOL 
CODEROW 
CODECOL 
MSGROW 
MSGCOL 
MEMROW 
MEMCOL 


.EQU 


.EQU 
. EQU 
.EQU 
.EQU 
.EQU 
. EQU 
.EQU 
. EQU 
. EQU 
. EQU 
. EQU 
.EQU 


. EQU 
. EQU 


.EQU 
.EQU 
. EQU 
. EQU 
. EQU 
. EQU 
.EQU 
.EQU 
. EQU 
. EQU 
. EQU 
. EQU 


.EQU 
.EQU 
.EQU 
. EQU 


.EQU 
.EQU 
. EQU 
. EQU 
. EQU 
. EQU 
. EQU 
.EQU 
. EQU 
. EQU 
. EQU 


320 


<SVCSTRT/90>+20 
MENUWIDTH+6 

SVCHIGH-20 
<ROWSLEFT/10>-3 
<CHARROWS*10>+FIRSTROW 
FIRSTCOL+SVCWIDTH-2 

10 
<LASTCOL-FIRSTCOL>|1+1 


jlength of service window 


;first row for display of msgs 

;first column 

j;pixel rows to bottom of service window 
;rows used for character display 

;last pixel row for display 

jlast column 

;pixel row lines per character 

;bytes per pixel row (must be even!) 


<LASTROW-FIRSTROW>/ROWLINES ;number of character rows 


8 
1 
CHRHIGH+2 


6 
32 


ALBOXROW 
10 


;character heigth in pixel lines 
;width of char in bytes 
vert pixel lines between chars 


;width in bytes of icons 
;heigth of icons in pixel rows 


;starting row for test alert box 
;starting col for test alert box 


<TSTROW*ROWBYTES>+TSTCOL ;test alert box start 


70 

84 

TSTROW+15 

TSTCOL+4 
TSTROW+<TSTWHIGH/2> 
MIDTSTROW-<ICONHIGH/2> 
CHKROW+10 

TSTCOL+10 

ICONWIDTH+8 


;width for test alert box 
sheigth for test alert box 
;row for test message display 
;col for test message display 
;middle row of test box 
;row for check mark display 
;row for test icon display 
;col for test icon display 
;space between test icons 


<TSTIROW*ROWBYTES>+TSTICOL ;upper left corner for CPU icon 


CPUSTRT+TSTISPC 
MEMSTRT+TSTISPC 
IOSTRT+TSTISPC 


MIDALROW-<ICONHIGH/2> 
ALBOXCOL+10 


;upper left corner for MEM icon 
jupper left corner for I/O icon 
;upper left corner for slot icon 


;row for error icon display 
;col for error icon display 


<ERRROW*ROWBYTES>+ERRCOL ;start address for error icon display 


ERRROW 
ERRCOL 
ERRROW+36 
ERRCOL+2 
ALRTROW+11 
ALRTCOL+8 
16 

4 


;row for alert icon display 

;col for alert icon display 

;row for error code display 

;col for error code display 

;xrow for alert/error message display 

;col for alert/error message display 
;offset row for memory board id # display 
;offset col for memory board id # display 
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0000 


0000 
0000 
0000 
0000 
0000 


0000 
0000 


0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 


0012 
0004 
0016 
0003 
0006 
0003 
0005 
0004 


00A4 
003E 
39E6 
0014 
1B72 
1B7E 
39BC 
1B8A 
1680 
0440 
000C 


0445 


0056 
00CcO 
070A 
0059 
000C 


0003 
0050 


0480 


0480 
0486 
0488 
048A 
048B 
048C 
048E 


0490 


DISKROW .EQU 
DISKCOL .EQU 
SLOTROW .EQU 
SLOTCOL .EQU 
DRVROW .EQU 
DRVCOL .EQU 
INSRTROW .EQU 
INSRTCOL .EQU 
DEFROW .EQU 
DEFCOL .EQU 
DEFSTRT .EQU 
ALTCOL .EQU 
COL1STRT .EQU 
COL2STRT .EQU 
COL2MID .EQU 
COL3STRT .EQU 
ICONCSPC .EQU 
ICONMSPC .EQU 
ICONRSPC .EQU 
ALTKYADDR .EQU 
PCWIDTH .EQU 
PCHIGH .EQU 
PCSTRT .EQU 
PCROW .EQU 
PCCOL .EQU 
ROMIDROW .EQU 
ROMIDCOL .EQU 

.IF DEBUG = 
GLOBALS .EQU 

. ELSE 

. ENDC 
ClockBytes . EQU 
MousX .EQU 
MousY .EQU 
MousDx .EQU 
MousDy .EQU 
MousScaling . EQU 
MousThresh .EQU 
CrsrHotx .EQU 


tex 


18 ;offset row for diskette id # display 

4 ;offset col for diskette id # display CHG024 
22 ;offset row for slot card id # display 

3 ;offset col for slot card id # display 

6 ;offset row for drive id # display CHG009 
3 ;offset col for drive id # display CHGOO09 
5 ;offset row for insert rqst id # display CHG009/CHG024 
4 ;offset col for insert rqst id # display CHG009 
WMIDROW-<ICONHIGH/2> ;row for default boot icon display 
W34COL-<ICONWIDTH/2> ;col for default boot icon display 
<DEFROW*ROWBYTES>+DEFCOL ;start address for default boot icon 
W14COL-<ICONWIDTH/2> ;col for alternate boot icon display 
<78*ROWBYTES>+6 ;start for first column of boot icons 
COLISTRT+12 ;start for second col of boot icons 


<DEFROW*ROWBYTES>+ALTCOL ;middle of second col 


COL2ZSTRT+12 ;start for third col of boot icons 

<64*ROWBYTES> ;space between left corner of icons in col 
<12*ROWBYTES>+6+2 ;start addr offset for boot icon alternate keycode 
12 ;space in between cols in same row 

ICONMSPC+5 ;address offset for display of alternate keycode in menu bar 
86 ;width of window for power cycling msgs 

192 jheight of window 

WINDSTRT jupper left corner of window 

ALBOXROW+40 ;first row for power cycle msgs 

ALBOXCOL+6 ;first col for power cycle msgs 

3 ;cursor row ptr for ROM id display CHGO01 

80 ;cursor col ptr for ROM id display CHGO01 
STKBASE ;start of global area for mouse/cursor 

Globals ;clock data save area 

ClockBytes+6 ;mouse X-coordinate (word) 

MousX+2 ;mouse Y-coordinate (word) 

MousY+2 ;mouse delta-x (byte) 

MousDx+1 ;mouse delta-y (byte) 

MousDy+1 ;0=disabled, else=enabled (byte) 


MousScale|1+1 


MousThresh+2 


;mouse movement threshold (word) 


;hotspot X-coordinate (word) 
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tex 


0000] 0000 0492 CrsrHoty .EQU CrsrHotx+2 ;hotspot Y-coordinate (word) 

0000] 0000 0494 CrsrHeight .EQU CrsrHotY+2 ;cursor height, 0-32 (word) 

0000] 0000 0496 CrsrxX .EQU CrsrHeight+2 ;cursor X-coordinate (word) 

0000] 0000 0498 CrsrY .EQU CrsrX+2 ;cursor Y-coordinate (word) 

0000| 0000 049A CrsrTracking .EQU CrsrY+2 ;0=disabled, else=enabled (byte) 

0000| 0000 049B CrsrBusy . EQU CrsrTracking+1l ;0=not busy, else=busy (byte) 

0000] 0000 049C CrsrVisible .EQU CrsrBusy+1 70=not visible, else=visible (byte) 
0000| 0000 049E CrsrHidden .EQU CrsrVisible|1+1 ;<=0 implies hiddden (word) 

0000| 0000 04A0 CrsrObscured EQU CrsrHidden+2 ;0=not obscured, else=obscured (byte) 
0000 | 

0000] 0000 04A2 SavedData .EQU CrsrObscured+2 ;data from under cursor (128 bytes) 
0000] 0000 0522 SavedxX .EQU SavedData+128 ;saved data X-coordinate (word) 

0000] 0000 0524 SavedY .EQU SavedX+2 ;saved data Y-coordinate (word) 

0000] 0000 0526 SavedRows .EQU SavedY+2 ;rows of saved data (word) 

0000] 0000 0528 SavedAddr .EQU SavedRows+2 ;saved data screen address (long) 

0000 | 

0000] 0000 052c LwrRight .EQU SavedAddr+4 ;saved lower right corner address (word) 
0000| 0000 052E MsgLen .EQU LwrRight+2 ;length of dialog box msg (word) 

0000 | 

0000 | .IF BMENU = 

0000 | . ELSE 

0000] 0000 0530 MenuBase .EQU Msglen+2 ;address of last boot menu "box" (word) 
0000] 0000 0532 IconAddr EQU MenuBase+2 ;address for last boot icon displayed (word) 
0000 | . ENDC 

0000 | 

0000| 0000 0534 IconCnt .EQU IconAddr+2 ;count of boot icons displayed (byte) 
0000 | 

0000| 0000 0535 DRIVE . EQU IconCnt+1 ;drive id for dump/verify options (byte) 
0000| 0000 0536 BLKNUM . EQU DRIVE+1 ;block # for dump option (word) 

0000| 0000 0538 CONTXT . EQU BLKNUM+2 ;context for dump of MMU contents (byte) 
0000 | 

0000] 0000 053A RectCnt .EQU CONTXT+2 ;count for active rect table (word) 
0000| 0000 053A RectTable EQU RectCnt ;active rectangle table (same start) 
0000 | 

0000 | . ENDC 

0000 | . PAGE 

0000 | fee ee a oe eee one 
0000 | ; The following memory locations are reserved for ROM use to save test data 
0000| or ec aaa a cra a ae ma mee a a 
0000 | 

0000| 0000 0180 STATUS .EQU $0180 ;POWER-UP STATUS (0=OK) 

0000| 0000 0184 SIZRSLT . EQU STATUS+4 ;memory sizing test results 

0000| 0000 0186 MEMRSLT .EQU SIZRSLT+2 ;MEMORY TEST RESULTS 

0000] 0000 0188 BOOTMEM .EQU MEMRSLT+2 ;result for boot area of memory (128K) 
0000] 0000 01A6 PEADDR .EQU MEMRSLT+32 ;PARITY ERROR ADDRESS 

0000] 0000 01AA ADRLTCH .EQU PEADDR+4 ;CONTENTS OF MEMORY ADDRESS LATCH 

0000| 0000 01AC D7SAV .EQU ADRLTCH+2 ;save for D7 when exception occurs 
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0000 | 
0000| 
0000 | 
0000| 
0000| 
0000| 
0000 | 
0000 | 
0000 | 
0000| 
0000| 
0000| 
0000| 
0000 | 
0000| 
0000| 
0000 | 
0000 | 
0000| 
0000| 
0000| 
0000| 
0000| 
0000| 
0000 | 
0000| 
0000| 
0000| 
0000| 
0000 | 
0000| 
0000| 
0000| 
0000| 
0000| 
0000 | 
0000| 
0000| 
0000 | 
0000| 
0000 | 
0000| 
0000 | 
0000| 
0000| 
0000| 
0000 | 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


01B0 
01B2 
01B3 
01B4 
01BA 
01Cc0 
01E0 
01F8 
01FC 


0240 
0260 


0268 
026C 
0270 
0274 
0278 
027C 
027D 


0280 
0282 
0286 
0288 
028A 
028E 
0290 
0294 
0298 
029A 
029C 
029E 
029F 
02A0 
02A1 
02A2 
02A4 
02A8 
02AC 
02AD 
O2AE 
O2AF 
02B0 
02Cc0 


MMURSLT 
KEYID 
BOOTDVCE 
BOOTDATA 
CLKDATA 
DATARGS 
ADRREGS 
A6SAV 
USPSAV 


SERNUM 
KBDQPTR 


XPCTADDR 
XPCTDATA 
ACTADDR 
ACTDATA 
PEADR2 
PCHPROW 
PCHIP 


EXCFC 
EXCADR 
EXCIR 
EXCSR 
EXCPC 
EXCTYPE 
SUPSTK 
MAXMEM 
IOLID 
I02ID 
I03ID 
IO1STAT 
IO2STAT 
IO3STAT 
IOROM 
STATFLGS 
MINMEM 
TOTLMEM 
SCCRSLT 
MEMSLOT 
DSKRSLT 
SYSTYPE 
KBDQ 
QEND 


. EQU 
.EQU 
. EQU 
. EQU 
.EQU 
. EQU 
. EQU 
.EQU 
. EQU 


. EQU 
. EQU 


.EQU 
. EQU 
. EQU 
. EQU 
. EQU 
. EQU 
.EQU 


.EQU 
. EQU 
. EQU 
. EQU 
. EQU 
. EQU 
. EQU 
. EQU 
. EQU 
.EQU 
.EQU 
. EQU 
. EQU 
. EQU 
.EQU 
.EQU 
.EQU 
. EQU 
.EQU 
. EQU 
. EQU 
.EQU 
. EQU 
.EQU 


$01B0 
$01B2 
$01B3 
$01B4 
$01BA 
$01C0 
$01E0 
$01F8 
$01FC 


$0240 
$0260 


$0268 
$026C 
$0270 
$0274 
$0278 
$027C 
$027D 


$0280 
$0282 
$0286 
$0288 
$028A 
$028E 
$0290 
$0294 
$0298 
$029A 
$029C 
$029E 
$029F 
$02A0 
$02A1 
$02A2 
$02A4 
$02A8 
$02AC 
$02AD 
$02AE 
$02AF 
$02B0 
$02C0 


. INCLUDE RM248 .K.TEXT 


tex 


;MMU TEST RESULTS 

7;Keyboard ID 

;BOOT DEVICE CODE 

;BOOT FAILURE DATA 

;CLOCK SETTING READ 

;DATA REG SAVE AREA 

; ADDRESS REG SAVE AREA 

;SAVE AREA FOR REG A6 

;SAVE AREA FOR USER STACK PTR 


;saved serial number (28 bytes) 
;ptr for keyboard queue 


;memory test address for parity error CHGO15 
;memory test expected data CHGO15 
j;parity error address, phase 2 CHGO15 
;actual data read on parity error, phase 2 CHGO15 
jaddress read from error latch CHGO15 
;parity chip row CHGO15 
;parity chip id CHGO15 


; bus function code 

; address of error 

; instruction reg 

; status reg 

; PC at time of exception 
7; exception 
; SUPERVISOR 


;MAX 
71/0 
71/0 
71/0 
71/0 
71/0 
71/0 
71/0 


7 END 


MEMORY 
SLOT 
SLOT 
SLOT 
SLOT 
SLOT 
SLOT 


WNHRFWNHE 


type 

STACK PTR 
ADDRESS + 1 
ID 

ID 

ID 

STATUS 
STATUS 
STATUS 


ROM VERSION # 

jadditional status indicators 

;MINIMUM PHYSICAL ADDRESS 

;total amount of memory 

7;SCC test results 

;Slot # for memory board if memory error 

;Disk controller self-test status byte (0=no error) 
;System type (0 = Lisa 1; 1, 2, 3 = Lisa 2) CHG029 
;KEYBOARD QUEUE 


OF Q 
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0000] 

0000 | .IF EXTERNAL = 1 

0000| . ENDC 

0000| 

0000| . PAGE 

0000 | ; . ABSOLUTE ;makes listing look nicer 

0000| .PROC LISAROM,O 

0000| 

0000| . ORG 0 ; ORG'ED AT 0 BUT RUNS AT SOOFEO0000 
0000| 

0000 | ; Reset vectors here to pick up SP and PC values 

0000] 

0000 | BASE 

0000| 0000 -WORD $0000 ;initial SP 

0002| 0480 .WORD STKBASE 

0004| 

0004| OOFE . WORD ROMSLCT ;initial PC (assumes use of MMU reg 127) 
0006| OOF6 .WORD BEGIN 

0008 | 

0008 | ; Set up next locations for exception vectors 

0008 | 

0008| OOFE BUSVCT .WORD ROMSLCT ; BUS ERROR VECTOR 

O000A| 0030 -WORD EXCPERR 

000C| OOFE ADRVCT .WORD ROMSLCT ; ADDRESS ERROR 

000E| 0030 .WORD EXCPERR 

0010| OOFE ILLVCT .WORD ROMSLCT ; ILLEGAL INSTRUCTION 

0012| 0030 -WORD EXCPERR 

0014| OOFE DIVOVCT .WORD ROMSLCT ; DIVIDE BY ZERO ERROR 

0016| 0030 .WORD EXCPERR 

0018| OOFE CHKVCT .WORD ROMSLCT ; CHK INSTRUCTION 

001A| 0030 .WORD EXCPERR 

001C| OOFE TRAPVCT .WORD ROMSLCT ; TRAPV INSTRUCTION 

001E| 0030 .WORD EXCPERR 

0020| OOFE PRIVCT .WORD ROMSLCT ; PRIVILEGE VIOLATION 

0022| 0030 .WORD EXCPERR 

0024| OOFE TRCVCT .WORD ROMSLCT ; TRACE OPERATION 

0026| 0030 -WORD EXCPERR 

0028| OOFE L10VCT .WORD ROMSLCT ; OPCODE 1010 DETECTED 

002A| 0030 -WORD EXCPERR 

002C| OOFE L11vcT .WORD ROMSLCT ; OPCODE 1111 DETECTED 

002E| 0030 .WORD EXCPERR 

0030] 

0030 | (SS a RSs SSR e a SSS Se SS a SS SaaS See Sea See aaa Sere SS eae SaaS Sane a 
0030 | ; Exception and interrupt vector handler for ROM - resets SP and 
0030 | ; tries a restart 

0030 | PT ee TT Oe OP ET On FE ES 
0030] 


tex 
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0030| 
0034 | 
0036| 
003A| 
003A| 
003A| 
003A| 
003A| 
003A| 
003A| 
003A| 
003E| 
003E| 
0042 | 
0044| 
0048 | 
004¢c| 
0050| 
0052| 
0052| 
0052| 
0052| 
0059| 
005E| 
005F| 
005F | 
0060| 
0060| 
0060 | 
0060 | 
0062 | 
0064 | 
0066| 
0068 | 
006A| 
006c| 
006E| 
0070| 
0072 | 
0074| 
0076| 
0078 | 
007A| 
007¢| 
007E| 
0080| 
0080| 


3E7C 
4287 
6000 


21CF 


21CE 
4E6E 
21CE 
3C7C 
48E6 
4E75 


0480 


015c 


0290 
01F8 
01FC 


01F8 
FFFC 


EXCPERR MOVEA 
CLR.L 


#STKBASE , SP 
D7 
ROMTST 


tex 


;reset stack ptr 
;clear error indicator CHGO004 
;and restart diags CHGO004 


; Subroutine for saving registers and stack pointers 


SAVEREGS 
MOVE .L 
SAVEREG2 
MOVE.L 
MOVE .L 
MOVE .L 
MOVE 


SP,SUPSTK 


A6 ,A6SAV 
USP, A6 

A6, USPSAV 
#A6SAV ,A6 


;sSave sup stack ptr 


;save other regs (that aren't reset) 


;set ptr for saving regs 


MOVEM.L DO-D7/A0-A5 ,- (A6) 


RTS 


7; use spare bytes for message 


53 45 52 56 49 43 45 SVCMSG_ .ASCII 


20 4D 4F 44 45 


00 


00 


OOFE 
0030 
OOFE 
0030 
OOFE 
0030 
OOFE 
0030 
OOFE 
0030 
OOFE 
0030 
OOFE 
0030 
OOFE 
00CA 


. BYTE 
. ORG 
; The next set 


SPURVCT .WORD 
. WORD 
LVL1VCT .WORD 
. WORD 
LVL2VCT .WORD 
. WORD 
LVL3VCT .WORD 
. WORD 
LVL4VCT .WORD 
. WORD 
LVL5VCT .WORD 
. WORD 
LVL6VCT .WORD 
. WORD 
LVL7VCT .WORD 
. WORD 


IF 


"SERVICE MODE' 


0 


$60 


; RMO00 


; RMO00 


of vectors cover spurious and autovector interrupts 


ROMSLCT 
EXCPERR 
ROMSLCT 
EXCPERR 
ROMSLCT 
EXCPERR 
ROMSLCT 
EXCPERR 
ROMSLCT 
EXCPERR 
ROMSLCT 
EXCPERR 
ROMSLCT 
EXCPERR 
ROMSLCT 
NMIEXCP 


EXTERNAL = 1 


; SPURIOUS INTERRUPT 
; INTERNAL I/O INTERRUPTS (DISK,VERT TRACE,ETC. ) 
; KEYBOARD INTERRUPT 

; I/O SLOT 2 INTERRUPT 

; I/O SLOT 1 

; I/O SLOT 0 

; RS-232 


; NMI 
: RM010 
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0080 | 
0080 | 
0080 | 
0080 | 
0080 | 
0080 | 
0080 | 
0080 | 
0080| 
0080 | 
0084 | 
0088 | 
0088 | 
0088 | 
0088 | 
008c | 
008c | 
008c | 
0090| 
0094 | 
0098 | 
0098 | 
0098 | 
009c| 
009E | 
00A0 | 
00A2 | 
00A4 | 
00a4 | 
00A4 | 
008 | 
OOAC | 
OOAC | 
OOaC | 
00B0 | 
00B0 | 
00B0 | 
00B0 | 
00B4 | 
00B8 | 
O00BC | 
00C0 | 
000 | 
000 | 
00C4 | 
00c8 | 
00c8 | 


4EFA 
4EFA 


4EFA 


4EFA 
4EFA 
4EFA 


4EFA 
4E71 
4E75 
4E71 
4E75 


4EFA 
4EFA 


4EFA 


4EFA 
4EFA 
4EFA 
4EFA 


4EFA 
4EFA 


25D0 
24AE 


3664 


052C 
1EDE 
1CEO 


0E16 


052A 
O8AC 


11F2 


157E 
074C 
0A3C 
17CE 


17BC 
0B30 


JMP DORESET 
JMP INITMON 


.IF USERINT = 0 


. ELSE 

JMP CONVRTD5 
. ENDC 

JMP WRIMMU 
JMP PROREAD 
JMP TWGREAD 


.IF DIAGS = 1 
JMP RAMTEST 


JMP READCLK 
. ELSE 

. ENDC 

JMP DSPDEC 
JMP CONSET2 
JMP TONE 

JMP VFYCHKSM 


.IF ROM4K = 0 


JMP WRTSUM 
JMP RDSERN 
. ENDC 


;go to restart point 
;Jump to ROM Monitor 


;convert row ptr and display message 


;write to set of MMU registers 
;Profile read a block routine 
;Twiggy read a sector routine 


;basic memory test 
; 
, 
, 


, 


;read MMU registers 
;Send COPS command 


;Read clock setting 


;display hex error code in decimal 
;for setting contrast 

;to beep speaker 

;verify checksum 


;rewrite parameter memory 
;go read system serial # 


tex 


RMO00 


CHGO15 
CHGO15 
CHGO15 
CHGO15 


CHG017 
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008 | 
00c8 | 
00CA| 
O0CA| 
00CA| 
00CA | 
00CA | 
00CA| 
00CA | 
00CA| 
00CA | 
00CA| 
00CA | 
00D0 | 
00D8 | 
OoDA| 
00E2 | 
00E8 | 
O0EE| 
00F4 | 
OOF6 | 
OOF6 | 
OOF6 | 
OOF6 | 
OOF6 | 
OOF6 | 
OOF6 | 
OOF6 | 
OOF6 | 
OOFC | 
0100| 
0104| 
0106 | 
010E| 
0110| 
0110| 
0110| 
0110| 
0118 | 
0120| 
0128 | 
012E | 
0134| 
0134| 
0138 | 
013¢| 
0140| 


60FE 


4239 
0839 
6614 
31F9 
4039 
4039 
4039 
4E73 


3039 
0240 
0c40 
664C 
0279 
6642 


33FC 
33FC 
33FC 
4279 
4239 


21CF 
3E7C 
6100 


OOFC 
0001 


OOFC 
OOFC 
OOFC 
OOFC 


OOFC 
OFFF 
0901 


OFFF 


0700 
0901 
OFO0O 
OOFE 
O0OFC 


0290 
0480 
FFOO 


E012 
OOFC 


F000 
E01C 
E01E 
E010 


8000 


OOFC 


0000 
OOFC 
OOFE 
8008 
E012 


F801 


O1AA 


8008 


8000 
8000 
8000 


tex 


J RKKKEKKEKEKEKEEKEKIR Loop point for ROM test failure + #1 AI III IIIT RII III KIKI I IK 
SPIN BRA.S SPIN yhang system CHG007 


PERK KRKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RRR KKK KKK KKK KK KKK RRR KKK KKK KKK KKK KEKE RKEREKKKKEKK KKK KKK 


IF EXTERNAL = 1 
. ENDC 
; NMI Exception Handler RMO010 
NMIEXCP CLR.B SETUP ;enable memory access RMO010 
BTST #1,STATREG ;parity error? RM010 
BNE.S @1 ;skip if not to ignore RM010 
MOVE MEALTCH ,ADRLTCH ;save address if yes RMO010 
TST.B  PAROFF ;and toggle to clear error bit RMO010 
TST.B PARON ; RM010 
@1 TST.B SETUPON ;return to SETUP state RM010 
RTE ; RM010 
. PAGE 


BEGIN 
.IF NORESET = 1 
MOVE MMU126L ,DO ;check reg 126 for special I/O space 
ANDI #SOFFF ,DO ;ignore don't care bits 
CMPI #IOLMT2 ,DO ;for no reset, 126L = $x901 (x = random value) 
BNE.S  BEGIN2 ;skip if not set up 


ANDI #SOFFF,MMU126B ;else also check 126B = $x000 
BNE.S BEGIN2 


; Check OK - set MMU for ROM access and change SETUP before vectoring 


MOVE #MEMLMT , MMUOL ;set low memory for r/w (to save regs,etc.) 
MOVE #IOLMT2 ,MMU126L ;set for I/O space access (reset value) 
MOVE #SPLMT,MMU127L ;set access for ROM space 

MOVE #0 ,MMU127B 


CLR.B SETUP ;enable memory access 

MOVE.L SP,SUPSTK ;save supervisor stack ptr 
MOVEA =#STKBASE,SP ;move stack pointer for ROM use 
BSR.S SAVEREG2 ;save other registers 
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0140 
0140] 
0140 
0140] 
0144| 
0148 | 
0148 | 
014a| 
014c| 
014E| 
0152| 
0152| 
0152| 
0152| 
0152| 
0152| 
0152| 
0152| 
0154| 
015A] 
015E| 
0162 | 
0164| 
016C| 
016E| 
016E| 
016E| 
016E| 
0172| 
0174| 
017¢| 
0182 | 
018A | 
018A| 
018¢| 
018¢| 
018¢| 
018¢C| 
0190| 
0194| 
0194| 
0194| 
0194| 
0194| 
0194| 
0194| 
0194| 


4OFA 
6000 


95CA 
4280 
97CB 
6000 


4287 
3039 
0240 
0c40 
6630 
0279 
6626 


08C7 
7000 
33FC 
33C0 
33FC 


4E70 


4OFA 
6000 


0006 # LEA @1,A4 
06B4 # BRA CONSET 
#@1 
SUBA.L A2,A2 
CLR.L DO 
SUBA.L A3,A3 
23F4 BRA INIT1 
.ENDC 
BEGIN2 CLR.L D7 
OOFE 8000 MOVE MMU127L ,DO 
OFFF ANDI #SOFFF ,DO 
OFOO CMPI #SPLMT , DO 
BNE.S  ROMTST 
OFFF OOFE 8008 ANDI #SOFFF ,MMU127B 
BNE.S  ROMTST 
O001E BSET #WRMSTRT , D7 
MOVEQ #0,D0 
0900 OOFC 8000 MOVE #IOLMT ,MMU126L 
OOFC 8008 MOVE DO ,MMU126B 
OFOO OOFE 8000 MOVE #SPLMT ,MMU127L 
BEGIN3 RESET 
.IF NEWLISA = 1 
BSR4 CONOFF 
0006 # LEA @1,A4 
066E # BRA CONOFF 
#@1 
ELSE 
.ENDC 
. PAGE 


tex 


; Restore ROM Monitor environment 


BSR4 CONSET 


;go set default contrast 


;set for no icons 

; error codes 

7; Or messages 

;exit directly to monitor (avoid resaving regs) 


;clear for error use 

;check reg 127 for ROM space 

;ignore don't care bits 

;expect 127L = $xF0O (x = random value) 
;skip if not 

;else check if 127B = $x000 


; Check OK - set MMU for I/O and ROM access and go set contrast 


;set warm start indicator 
;clear for use 

;set access for I/O space 
;set access for ROM space 


;ensure clean I/O state for "warm-start" 


;and go disable contrast 


; Start diagnostics - do ROM checksum test first; expected result = 0 
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0194| 
0194| 
0194| 
0194| 
0194| 
0194| 
0196 | 
019A| 
019E| 
01A0 | 
01A2 | 
01A4| 
01A6 | 
01A8 | 
01AC | 
01AE| 
01B0 | 
01B0 | 
01B0 | 
01B0 | 
01B0 | 
01B0 | 
01B0 | 
01B0| 
01B0 | 
01B0 | 
01B0 | 
01B0 | 
01B0 | 
01B0| 
01B0 | 
01B0 | 
01B0 | 
01B0 | 
01B0 | 
01B0 | 
01B4 | 
01B8 | 
01B8 | 
01B8 | 
01BC | 
01C0 | 
01C0 | 
01c2 | 
01c2 | 
01c2 | 
01C6 | 


4280 
41FA FE68 
43FA 3E62 
D058 
E358 
B3C8 
66F8 
D058 
6600 FFIE 
4287 
6BE4 


49FA 0006 
6000 0060 


4DFA 0006 


6000 006C 


6616 


49FA 0004 
604E 


ROMTST 
IF DIAGS = 1 
CLR.L DO 
LEA BASE , AO 
LEA LAST ,A1 
DOSUM ADD (AO) +,D0 
ROL #1,D0 
CMPA.L AO,A1 
BNE.S DOSUM 
ADD (AO) +,D0 
BNE SPIN 
TST.L D7 
BMI.S ROMTST 
.ENDC 
. PAGE 


tex 


;clear for checksum use 
;init ROM address ptrs 


;read location and add to sum 
;rotate to catch multiple bit errors 
;loop until done 


jadd checksum word 

;loop if error CHGO007 
jin loop mode? 

;restart test if yes 


; Next do read/write and address test of MMU supervisor regs 
; Register Usage (by this routine and/or its subroutines) : 


: AO = MMU reg pointer DO = test pattern 
4 Al = last MMU limit reg addr D1 = contents read from MMU reg 
; A2 = MMU address increment D2 = OR mask of results 
; A3 = last MMU base reg addr D3 = pattern expected at last error 
; A4 = used for return address D4 = final value for MMU reg 
; A5 = MMU address of last error D5 = unused 
¥ A6 = used for return address D6 = unused 
: A7 = stack pointer D7 = error indicator (0 = R/W error) 
MMUTST 
.IF DIAGS = 
BSR4 MMUINIT ;initialize test variables 
# LEA @1,A4 
# BRA MMUINIT 
#@1 
BSR6 MMURW j;and go do read/write test 
# LEA @1,A6 
# BRA MMURW 
#@1 
BNE.S MMUERR jabort if error 
BSRS4 MMUINIT ;reinitialize 
# LEA @1,A4 
# BRA.S MMUINIT 
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01C8 | #@1 

01C8 | BSR6 MMUACHK ;and do address test 

01C8| 4DFA 0006 # LEA @1,A6 

01cc| 6000 00A2 # BRA MMUACHK 

01D0 | #@1 

01D0| 6604 BNE.S @2 ;skip if error 

01D2| 6000 O0F2 BRA SETMMU 7else go do initial MMU setup 

01D6| 4647 @2 NOT D7 ;set address error indicator 

01D8 | 

01D8 | . PAGE 

01D8 | Se ee a a SSS Se SS 
01D8 | ; The following code is used to toggle every address and data line 
01D8 | 7 going to the MMU if an error in the MMU context 0 tests is found. 
01D8 | ; Reset signals indicate read/write or addressing error. 

01D8 | cae a aa a a am a ame uaa aan a aan aaa oar 
01D8 | 

01D8| 4A47 MMUERR TST D7 ;check error type 

01DA| 6702 BEQ.S @2 

01DC| 4E70 RESET ;two reset signals for address error 
O1DE| 4E70 @2 RESET ;only one for R/W error 

01E0 | 

01E0 | ; Toggle every data and address bit 

01E0 | 

01E0| 207C 0002 8000 MMULP MOVE.L #500028000,A0 ;set MMU limit reg start address 
01E6| 7201 MOVEQ #1,D1 jand starting data pattern 

01E8| 7407 MOVEQ #7,D2 j;and loop count 

01EA | BSRS4 TSTLOOP ;go toggle for limit regs 

O1EA| 49FA 0004 # LEA @1,A4 

01EE| 6010 # BRA.S TSTLOOP 

01F0 | #@1 

01F0| 207C 0002 8008 MOVE.L #500028008 ,A0 ;set MMU base reg start address 
01F6| 7405 MOVEQ #5,D2 j;and loop count 

0O1F8 | BSRS4 TSTLOOP ;go test base regs 

01F8| 49FA 0004 # LEA @1,A4 

01FC| 6002 # BRA.S TSTLOOP 

O1FE | #@1 

01FE | 

O1FE| 60D8 BRA.S MMUERR ;and loop indefinitely 

0200 | ; Subroutine to do reg testing 

0200] 

0200| 2008 TSTLOOP MOVE.L AO,DO ;save starting address 

0202| 3081 REGTST MOVE D1, (AO) ;do write 

0204| 3610 MOVE (AO) ,D3 ;then read 

0206| E349 LSL #1,D1 ;update pattern 

0208| 4840 SWAP DO iget address 

020A| E348 LSL #1,D0 ;update and restore 

020C| 4840 SWAP DO 


tex 
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tex 


020E| 2040 MOVE.L DO,A0 

0210| 5342 SUBQ #1,D2 ;loop until done 

0212| 66EE BNE.S  REGTST 

0214| RTS4 jexit 

0214| 4ED4 # JMP (A4) 

0216 | 

0216 | . PAGE 

0216 | Jt sn en ns ene nn nn een een enn nnn 
0216| ; Subroutine to do initial setup for MMU testing 

0216 | aa aaa ae on 
0216 | 

0216| 303C A55A MMUINIT MOVE #PATRN2 ,DO ;set test pattern 

021A| 7200 MOVEQ #0,D1 ;clear for result/error use 

021Cc| 7400 MOVEQ #0,D2 ; use MOVEQ for speed 

021E| 247C 0002 0000 MOVE.L #ADR128K,A2 ;set up increment value 

0224| 007C 0710 ORI #50710,SR ;set extend bit and disable interrupts 
0228 | RTS4 

0228| 4ED4 # JMP (A4) 

022A| 

022A| . PAGE 

022A| pocccc o-oo ne  e- 
022A| ; Subroutine to do MMU Read/Write Test for all registers in one context. 
022A| ; Zero bit set in CCR if no errors. 

022A| poccc coon = 
022A| 

022A| 207C 0000 8000 MMURW MOVE.L #MMUSADRL,AO ;SET MMU LIMIT START ADDR 

0230| 227C OOFE 8000 MOVE.L #MMUEADRL,A1 ;SET MMU LIMIT END ADDR 

0236| 267C OOFE 8008 MOVE.L #MMUEADRB,A3 ;SET MMU BASE END ADDR 

023C | 

023C| RWCHK1 BSR4 CHKRW ;GO DO READ/WRITE CHECK 

023C| 49FA 0006 # LEA @1,A4 

0240| 6000 0072 # BRA CHKRW 

0244 | #@1 

0244| 4640 NOT DO ; INVERT FOR NEXT PASS 

0246| BSRS4 CHKRW 7GO DO AGAIN 

0246| 49FA 0004 # LEA @1,A4 

024A| 6068 # BRA.S CHKRW 

024C| 4640 RWCHK2 NOT DO ; INVERT BACK TO ORIGINAL PATTERN 

024E| BSRS4 CHKRW ;ONE MORE TIME 

024E| 49FA 0004 # LEA @1,A4 

0252| 6060 # BRA.S CHKRW 

0254 | #@1 

0254| E350 RWCHK3 ROXL #1,D0 ;SET UP NEW PATTERN 

0256| B3C8 CMPA.L AO,A1 ;CHECK IF DONE 

0258| 6704 BEQ.S CHKBASE ;IF YES GO CHECK FOR BASE REG TESTING 
025A| DICA ADDA.L A2,A0 ;ELSE BUMP MMU ADDR 

025C| 60DE BRA.S RWCHK1 
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025E | 

025E| B7C8 CHKBASE CMPA.L A0O,A3 ;DONE WITH BASE? 

0260| 670A BEQ.S @2 ;EXIT IF YES 

0262| 207C 0000 8008 MOVE.L #MMUSADRB,AO ;ELSE SET STARTING BASE ADDRESS 
0268| 224B MOVEA.L A3,A1 ; AND ENDING ADDRESS 

026A| 60D0 BRA.S RWCHK1 ;GO CHECK BASE REGS 

026C | 

026C| 4A42 @2 TST D2 ;check for errors 

O26E| RTS6 jand exit test 

026E| 4ED6 # JMP (A6) 

0270| 

0270| . PAGE 

0270| Fa ae a aa a i reg ge eon lee a eal a gt 
0270| ; Subroutine to do MMU address check 

0270| ; Leaves limit registers with invalid page value, base regs with 0 
0270| a a a a aa a a aa ol 
0270| 

0270| 207C 0000 8000 MMUACHK MOVE.L #MMUSADRL,AO ;SET MMU LIMIT START ADDR 

0276| 227C OOFE 8000 MOVE.L #MMUEADRL,A1 ;SET MMU LIMIT END ADDR 

027C| 267C OOFE 8008 MOVE.L #MMUEADRB,A3 ;SET MMU BASE END ADDR 

0282| 383C OCOO MOVE #INVPAG , D4 ;SET FINAL VALUE FOR LIMIT REGS 
0286 | 

0286| 3210 ACHK1 MOVE (AO) ,D1 ;READ REG 

0288| B141 EOR DO,D1 ;CHECK IF EXPECTED 

O28A| 0241 OFFF ANDI #SOFFF,D1 ;MASK DON'T CARES 

O28E| 6620 BNE.S MADRERR ;EXIT IF ERROR 

0290 | 

0290| 3084 MMUSET MOVE D4, (AO) ;SET FINAL REG VALUE 

0292| E350 ROXL #1,D0 ;SET UP NEW PATTERN 

0294| B3C8 CMPA.L AO,A1 ;CHECK IF DONE 

0296| 6704 BEQ.S ACHK2 ;IF YES GO CHECK FOR BASE REG TESTING 
0298| D1ICA ADDA.L A2,A0 ;ELSE BUMP MMU ADDR 

029A| 60EA BRA.S  ACHK1 

029C | 

029C| B7C8 ACHK2 CMPA.L AO,A3 ;DONE WITH BASE? 

029E| 670C BEQ.S @2 ;EXIT IF YES 

02A0| 207C 0000 8008 MOVE.L #MMUSADRB,AO ;ELSE SET STARTING BASE ADDRESS 
02A6| 224B MOVEA.L A3,A1 ; AND ENDING ADDRESS 

02A8| 7800 MOVEQ #0,D4 ;SET FINAL VALUE FOR BASE REGS 
O2AA| 60DA BRA.S  ACHK1 ;GO CHECK BASE REGS 

O02AC | 

O2AC| 4A42 @2 TST D2 ;check for errors 

O2AE | RTS6 ;and exit test 

O2AE| 4ED6 # JMP (A6) 

02B0 | ; Handle MMU address error 

02B0 | 

02B0| 8441 MADRERR OR D1,D2 ;Ssave error bits 


tex 
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02B2| 60DC BRA.S MMUSET ; and continue test 

02B4 | 

02B4 | . ELSE 

02B4 | . ENDC 

02B4 | 

02B4 | pocccc con = 
02B4 | ; Subroutine to do MMU actual read/write 

02B4 | poccccc no-one 
02B4 | 

02B4| 3080 CHKRW MOVE DO, (AO) ;do write 

02B6| 3210 MOVE (AO) ,D1 ;read back 

02B8| B141 EOR DO,D1 ; compare 

O2BA| 0241 OFFF ANDI #SOFFF,D1 ;mask don't cares 

O2BE| 6602 BNE.S  RWERR ;skip if error 

02C0 | RTS4 ;else return 

02C0O| 4ED4 # JMP (A4) 

02C2 | 

02C2 | ; Error collection 

02C2 | 

02C2| 8441 RWERR OR D1,D2 ;Save error bits 

02C4 | RTS4 jand return 

02C4| 4ED4 # JMP (A4) 

02C6| 

02C6 | . PAGE 

02C6 | pe ee a a ee ee ee a ee ee er eg eee 
02C6 | ; Now do setup of MMU supervisor registers for RAM and I/O space access. 
02C6 | ; Also do read check after write and abort if error. 

02C6 | poRsssose S556 =$S S55 Ses 55 $5535 $5 55355553 S5 55555 S555 5 S556 $$ S55 SS55-=5= 
02C6 | 

02C6 | ; Do origin registers first 

02C6 | 


tex 


02c6| 207C 0000 8008 


SETMMU MOVE.L #MMUSADRB,AO 


;GET MMU PTR 


02cCc| 7000 MOVEQ  #0,D0 ;clear for use 

02CE| 7200 MOVEQ #0,D1 

02D0| 3802 MOVE D2 ,D4 ;SAVE PREVIOUS RESULTS IF ANY 
02D2| 7400 MOVEQ #0,D2 

02D4| 7C00 MOVEQ #0,D6 

02D6| 247C 0002 0000 MOVE.L #ADR128K,A2 ; ADDRESS INCREMENT 

02DC| 267C 0000 0100 MOVE.L #PAG128K,A3 ;SET UP BASE ADDRESS INCREMENT 
02E2| 7C10 MOVEQ #16 ,D6 ;LOOP COUNT 

02E4 | LOADORG BSRS4 CHKRW ;DO WRITE/READ CHECK 

02E4| 49FA 0004 # LEA @1,A4 

02E8| 60CA # BRA.S CHKRW 

02EA| #@1 

02EA| DO8B ADD.L A3,D0 ;COMPUTE NEXT MEMORY BASE ADDRESS 
O2EC| D1ICA ADDA.L A2,A0 ;BUMP MMU ORG PTR 

O2EE| 5346 SUBQ #1,D6 
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O2F0| 66F2 BNE.S §LOADORG ;LOOP UNTIL DONE 

02F2 | 

02F2 | ; Set base for I/O and special I/O space 

02F2 | 

02F2| 207C OOFC 8008 MOVEA.L #MMU126B ,A0 ;PT TO ORG REG 126 
02F8| 7000 MOVEQ  #0,D0 ;set data value 

O2FA| BSRS4 CHKRW 

O2FA| 49FA 0004 # LEA @1,A4 

O2FE| 60B4 # BRA.S CHKRW 

0300 | #@1 

0300| D1ICA ADDA.L A2,A0 ;BUMP PTR TO REG 127 
0302 | BSRS4 CHKRW 

0302| 49FA 0004 # LEA @1,A4 

0306| 60AC # BRA.S CHKRW 

0308 | #@1 

0308 | 

0308 | ; Now do limit registers 

0308 | 

0308| 207C 0000 8000 MOVEA.L #MMUSADRL,AO ;GET MMU LIMIT REG PTR 
030E| 303C 0700 MOVE #MEMLMT , DO ;LIMIT FOR 128K MEMORY SEGMENTS 
0312| 7200 MOVEQ #0,D1 juse as working reg 
0314| 7C10 MOVEQ #16,D6 7LOOP COUNT 

0316| LOADLMT BSRS4 CHKRW 

0316| 49FA 0004 # LEA @1,A4 

031A| 6098 # BRA.S CHKRW 

031C| #@1 

031C| D1ICA ADDA.L A2,A0 ;BUMP MMU PTR 

031E| 5346 SUBQ #1,D6 

0320| 66F4 BNE.S LOADLMT ;LOOP UNITL DONE 

0322 | 

0322 | ; Now do MMU limit reg setup for I/O and Special I/O access 
0322| 

0322| 207C OOFC 8000 MOVEA.L #MMU126L,A0 ;PT TO LMT REG 126 
0328| 303C 0900 MOVE #IOLMT , DO ;SET FOR I/O SPACE, FULL ACCESS 
032C | BSRS4 CHKRW 

032C| 49FA 0004 # LEA @1,A4 

0330| 6082 # BRA.S CHKRW 

0332 | #@1 

0332| D1ICA ADDA.L A2,A0 ;BUMP PTR TO REG 127 
0334| 303C OFOO MOVE #SPLMT , DO ;SET FOR SPECIAL I/O, FULL ACCESS 
0338 | BSRS4 CHKRW 

0338| 49FA 0006 # LEA @1,A4 

033C| 6000 FF76 # BRA.S CHKRW 

0340 | #@1 

0340 | 

0340 | .IF DIAGS = 1 

0340| ; Check if errors detected 


tex 
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0340| 4A42 TST D2 ;CHECK ERROR MASK 

0342| 6600 FE94 BNE MMUERR ; ABORT IF ERROR 

0346| 3404 MOVE D4,D2 ;ELSE RESTORE PREVIOUS RESULTS 
0348 | . ENDC 

0348 | 

0348 | . PAGE 

0348 | eee ee ee ee ee eee 
0348 | ; Complete testing of MMU by checking other context regs. 
0348 | ; Uses reg D6 for context indicator. 

0348 | (a ee ee oe ee 
0348 | .IF DIAGS = 1 

0348 | 

0348| 7C00 MMUTST2 MOVEQ  #0,D6 ;FOR CONTEXT INDICATOR 

034A| BSR4 MMUINIT ;REINITIALIZE FOR TESTING 
034A| 49FA 0006 # LEA @1,A4 

034E| 6000 FEC6 # BRA MMUINIT 

0352 | #@1 

0352 | 

0352| 4A39 OOFC EOOA TST.B SEGI1ON ;SET FOR CONTEXT 1 

0358] 7C01 MOVEQ #1,D6 ;SET CONTEXT INDICATOR 

035A| 

035A| BSR4 CONCHK ;CHECK IF MMU CONTEXT CHANGED 
035A| 49FA 0006 # LEA @1,A4 

035E| 6000 O0BO # BRA CONCHK 

0362| 6700 0090 BEQ MMUERR2 ;EXIT IF NO - SEG BIT ERROR 
0366] 

0366 | BSR6 MMURW ;ELSE GO DO R/W TEST 

0366| 4DFA 0006 # LEA @1,A6 

036A| 6000 FEBE # BRA MMURW 

036E| 6600 0084 BNE MMUERR2 ;exit if error 

0372 | 

0372| 4A39 OOFC EOOE TST.B SEG20N ;SET FOR CONTEXT 3 

0378| 7C03 MOVEQ #3,D6 

037A| 

037A| BSR4 CONCHK ;CHECK IF MMU CONTEXT CHANGED 
037A| 49FA 0006 # LEA @1,A4 

037E| 6000 0090 # BRA CONCHK 

0382 | #@1 

0382| 6770 BEQ.S MMUERR2 ;EXIT IF NO - SEG BIT ERROR 
0384 | 

0384 | BSR6 MMURW ;ELSE GO TEST 

0384| 4DFA 0006 # LEA @1,A6 

0388| 6000 FEAO # BRA MMURW 

038C| #@1 

038C| 6666 BNE.S MMUERR2 ;exit if error 

038E | 

038E| 4A39 OOFC E008 TST.B SEGLOFF ;SET FOR CONTEXT 2 
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0394| 7C02 MOVEQ #2,D6 

0396| 

0396| BSRS4 CONCHK ;CHECK IF MMU CONTEXT CHANGED 
0396| 49FA 0004 # LEA @1,A4 

039A| 6074 # BRA.S CONCHK 

039C | #@1 

039C| 675C BEQ.S MMUERR3 ;EXIT IF NO - SEG BIT ERROR 
039E | 

039E| BSRS6 MMURW ;ELSE GO TEST 

039E| 4DFA 0006 # LEA @1,A6 

03A2| 6000 FE86 # BRA.S MMURW 

03A6 | #@1 

03A6| 6652 BNE.S MMUERR3 ;exit if error 

03A8 | 

03A8| 4A39 OOFC EOOC TST.B SEG20FF ;RESET FOR CONTEXT 0 REGS 
032 | 

O3AE | 7; Now do MMU addressing check of remaining context regs 
O32E | 

O3AE | BSR4 MMUINIT ;REINITIALIZE 

O3AE| 49FA 0006 # LEA @1,A4 

03B2| 6000 FE62 # BRA MMUINIT 

03B6 | #@1 

03B6 | 

03B6| 4A39 OOFC EOOA TST.B SEGLON ;SET FOR CONTEXT 1 
03BC| 7C01 MOVEQ #1,D6 

O3BE | BSR6 MMUACHK ;TEST CONTEXT 1 

O3BE| 4DFA 0006 # LEA @1,A6 

03C2| 6000 FEAC # BRA MMUACHK 

03C6 | #@1 

03C6| 662C BNE.S MMUERR2 ;exit if error 

03C8| 4A39 OOFC EOOE TST.B SEG20N ;TEST CONTEXT 3 

03CE| 7C03 MOVEQ #3,D6 

03D0 | BSR6 MMUACHK 

03D0| 4DFA 0006 # LEA @1,A6 

03D4| 6000 FE9A # BRA MMUACHK 

03D8| 661A BNE.S MMUERR2 ;exit if error 

03DA| 

03DA| 4A39 OOFC E008 TST.B SEG1OFF ;TEST CONTEXT 2 

03E0| 7C02 MOVEQ #2,D6 

03E2 | BSR6 MMUACHK 

03E2| 4DFA 0006 # LEA @1,A6 

03E6| 6000 FE88 # BRA MMUACHK 

03EA | #@1 

03EA| 660E BNE.S MMUERR3 ;exit if error 

03EC | 

03EC| 4A39 OOFC EO0OC TST.B SEG20FF ;RESET TO CONTEXT 0 
03F2| 6014 BRA.S MMULPCHK igo check for loop mode 


ney 
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03F4| 
03F4| 
03FA| 
0400| 
0400| 
0402| 
0404 | 
0408 | 
0408 | 
040A| 
040E| 
0410| 
0410| 
0410| 
0410| 
0410| 
0410| 
0410| 
0410| 
0416| 
041A| 
041E| 
0420| 
0420| 
0426 | 
042a| 
042E| 
0430| 
0430| 
0436 | 
043A| 
043E| 
043E| 
043E| 
0440| 
0440| 
0440| 
0440| 
0440| 
0440| 
0440| 
0440| 
0440| 
0440| 
0440| 
0440| 
0446| 


4039 
4039 


E85E 
8446 
08C7 


4287 
6B00 
6030 


3839 
0244 
0C44 
661E 


3839 
0244 
0C44 
660E 


3839 
0244 
0C44 


4ED4 


4239 


OOFC E008 
OOFC EOOC 


0000 


FDA4 


OOFC 8000 
OFFF 
0900 


OOFE 8000 
OFFF 
OFO0O 


0000 8000 
OFFF 
0700 


OOFC E012 


SEGLOFF 
SEG20FF 


#4,D6 
D6,D2 
#MMU ,D7 


;ENSURE RESET FOR CONTEXT 0 


;get context indicator 
;save with error bits (if any) 
;set error indicator 


;in loop mode? 
;restart full MMU test if yes 
;else continue to next test 


tex 


; Subroutine to verify context change made - does comparison to ensure 


; destruction of context 0 mapping avoided. 


MOVE MMU126L,D4 
ANDI #SOFFF ,D4 
CMPI #IOLMT ,D4 
BNE.S CONOK 
MOVE MMU127L,D4 
ANDI #SOFFF ,D4 
CMPI #SPLMT ,D4 
BNE.S CONOK 
MOVE MMUOL , D4 
ANDI #SOFFF ,D4 
CMPI #MEMLMT , D4 
RTS4 

JMP (A4) 
.ENDC 

IF ROM4K = 0 
.IF DIAGS = 0 
.ENDC 
.ENDC 
. PAGE 


Zero bit set if error. 


;check limit reg for I/O space 
;mask don't care 

;Still in same context? 

;exit if not 


;else also check reg for ROM space 
;mask don't care 

;also set up? 

;exit if not 


7;else do final check on reg for memory access 


;return with match results to caller 


; {DIAGS} 
7 {ROM4K} 
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0446| 
0446| 
0446| 
0446| 
0446| 
0446| 
0446| 
0446| 
0446| 
0446| 
0446| 
0446| 
0448 | 
044a| 
044c| 
044E| 
0450| 
0452| 
0454| 
045A| 
045C| 
045E| 
045E| 
045E| 
0462| 
0466| 
0466| 
0468 | 
046A| 
046C| 
046E| 
0470| 
0472| 
0474| 
047A| 
047¢| 
047¢| 
047¢| 
047¢| 
047¢C| 
0484 | 
0488 | 
048A| 
048C| 
0494 | 
049A| 
049¢| 


4280 
2040 
2240 
2640 
2C40 
7202 
4841 
283C AA55 
3604 
4643 


49FA 0006 
6000 00A4 


446 
6752 
4646 
446 
6648 
D7C1 
224B 
B3FC 0020 
66E2 


13FC OOAF 
303C 61A8 
5340 
66FC 
13FC 002F 
207C OOFC 
4A10 


, 


, 


Now do memory sizing - assumes 128K minimum memory increment 
Register usage: 


AO = minimum physical address DO = scratch use 

Al = maximum physical address/scratch D1 = incr for search address 

A2 = unused D2 = unused 

A3 = next base memory addr to test D3 = inverted sizing test pattern 
A4 = return address D4 = sizing test pattern 

A5 = unused D5 = retry count 

A6 = saved error mask D6 = error mask 


MEMSIZ CLR.L DO ;setup regs for loop 
MOVE.L DO,A0 
MOVE.L DO,Al1 
MOVE.L DO,A3 
MOVE.L DO,A6 
MOVEQ #2,D1 ;size at 128K boundaries 
SWAP D1 i: 
A55A MOVE.L #PATRN,D4 ;set test patterns for sizing 
MOVE D4,D3 juse only lower word 
NOT D3 ;and its inverse 
CHKLO BSR4 CHKMEM ;first search for low memory address 
# LEA @1,A4 
# BRA CHKMEM 
#@1 
TST D6 ;memory found? 
BEQ.S SAVELO 7yes - go save address 
NOT D6 ;else invert to check if all bits in error 
TST D6 ;if not, assume memory error 
BNE.S @3 ; and go save address 
@2 ADDA.L D1,A3 ;else bump search address 
MOVEA.L A3,Al1 ;set as next working address 
0000 CMPA.L #MAXADR,A1 jat max address? 
BNE.S CHKLO ;continue search if not 
; No memory found - toggle LED and check for I/O board; if no I/O (bus error) 
; diagnostics are restarted 
OOFC E800 MOVE.B #DEFVID2,VIDLTCH ;set LED on and default video latch setting (PAGE 2F) 
MOVE #TNTHSEC , DO ;delay for .1 sec 
@9 SUBQ #1,D0 ; 
BNE.S @9 ; 
OOFC E800 MOVE.B #DEFVID,VIDLTCH ;reset LED and leave video latch setting 
DD81 MOVE.L #VIA1BASE,A0 ;check for I/O board 
TST.B (AO) ;bus error will occur if not installed 


tex 


RM000 
RM000 
CHG002 


CHGO04 
CHGO04 


CHG004 
CHGO04 
CHG004 
CHGO04 
CHG004 
CHGO04 
CHGO04 
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049¢| 
049¢| 
049¢| 
049C| 
04A0| 
04A4 | 
04A4 | 
04A4 | 
04a8 | 
04ac| 
04ac| 
04B2 | 
04B4 | 
04B6 | 
04B8 | 
04B8 | 
04B8 | 
04BA| 
04BC | 
04BC | 
O4BE | 
04c4 | 
04c6| 
04cc | 
04cc | 
04cc| 
04cc | 
04cc | 
04cc | 
04cc| 
O4CE | 
O4CE | 
O4CE | 
04D0| 
04D2 | 
04D8 | 
O4DA| 
O4DA| 
O4DA| 
04DC | 
O4DE| 
04E0 | 
04E2 | 
04E2 | 
04E2 | 
04E2 | 
04E2 | 


45FA 0006 
6000 00B2 


49FA 0006 
6000 0350 


207C OOOF FFFE 
2084 
2610 
60FA 


4646 
3C46 


204B 
B1FC 0010 0000 
6F06 
207C 0010 0000 


244B 


D7C1 
224B 
B3FC 0020 0000 
6728 


2008 
6604 
B651 
671E 


49FA 0004 


; Go into read/write loop if no memory found but I/O installed 


BSR2 LOTONE ;beep speaker for error 
# LEA @1,A2 
# BRA LOTONE 
#@1 
BSR4 CONSET ;set contrast 
# LEA @1,A4 
# BRA CONSET 
#@1 
MOVE.L #ONEMEG-2 ,A0 ;set default memory address (to span both boards) 
@4 MOVE.L D4, (AO) ;go into read/write loop 
MOVE.L (AO) ,D3 ; 
BRA.S @4 
; Low memory address found - save and continue 
@3 NOT D6 ;reinvert and 
MOVE D6,A6 ; save results 
SAVELO MOVEA.L A3,A0 ;save low address 
CMPA.L #ONEMEG,AO ;check for min low address 
BLE.S @1 ;skip if OK 
MOVEA.L #ONEMEG,AO ;else set at min value (one 512K board in slot 1) 
. PAGE 
; Now check for high memory address; search to max address of 2 meg 
@1 MOVEA.L A3,A2 ;save low address as first high address 
TSTHI 
ADDA.L D1,A3 ;compute next 128K increment 
MOVEA.L A3,Al1 ;use as new search value 
CMPA.L #MAXADR,A1 ; done? 
BEQ.S SIZXIT 
; Following patch added to detect for wraparound problem of old memory boards 
MOVE.L AO,DO ;check low address 
BNE.S CHKHI ;0ld memory boards start at address 0 
CMP (Al) ,D3 ;are we wrapped back to already tested location? 
BEQ.S  WRAPXIT ;skip if yes (i.e., old memory board) 
; Else continue with check for high address 
CHKHI BSRS4 CHKMEM ;go do memory search 
# LEA @1,A4 


tex 


CHG002 
CHG002 
CHG002 


RM015 
RM015 


RM015 
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0456 | 
04E8 | 
04E8 | 
O4EA| 
04EC | 
O4EE| 
04F0 | 
04F2 | 
04F4| 
04F6| 
O4F8 | 
O4FA| 
O4FA| 
04FC| 
O4FE| 
0500| 
0500| 
0502| 
0502| 
0504| 
0506| 
0508 | 
0508 | 
0508 | 
0508 | 
0508 | 
0508 | 
0508 | 
0508 | 
050A| 
050c| 
050E| 
0512 | 
0514| 
0516| 
0518 | 
051A| 
051¢| 
051¢C| 
0520| 
0522 | 
0526| 
0528 | 
052A | 
052A | 
052E| 
0530| 


6020 


446 
670E 
4646 
446 
67DC 
300E 
4646 
8046 
3C40 


244B 
4253 
60CE 


4251 


D5c1 
224A 
605E 


7A20 
4246 
3284 
3343 0002 
B851 
6706 
3011 
B940 
8C40 


B669 0002 
6708 
3029 0002 
B740 
8C40 


3344 0002 
3283 
B869 0002 


# BRA.S CHKMEM 
#@1 
TST D6 
BEQ.S SAVEHI 
NOT D6 
TST D6 


SAVEHI MOVEA.L A3,A2 


WRAPXIT CLR (Al) 


SIZXIT ADDA.L D1,A2 


tex 


yany errors? 
;skip if not to save address 
;else invert to see if all bits in error 


;skip if yes to ignore address 
7;else get previous results 
;reinvert and 

; add new results 

;save for later 


;save as new potential high address 
;clear test pattern RM015 
; and continue loop 


;clear test pattern RM015 
;high address = last valid addr + 128K 


;save for later use 
;continue on 


; Subroutine to do memory check for sizing. If error, tries successive 
; Memory locations up to retry count (D5). Returns with error mask in D6. 


CHKMEM MOVEQ #RETRYCNT , D5 


CLR D6 

@1 MOVE _—D4, (A1) 
MOVE _D3,2(A1) 
CMP (Al) ,D4 
BEQ.S @2 
MOVE (A1) ,DO 
EOR D4,D0 
OR DO ,D6 

@2 CMP 2(A1) ,D3 
BEQ.S @3 
MOVE  2(A1),D0 
EOR D3 ,DO 
OR DO ,D6 

@3 MOVE D4,2(A1) 
MOVE _—iO3, (A1) 
CMP 2(A1) ,D4 


; set retry count in case of errors 

; clear for error mask 

; check if true data stores 

; and try complement to next location 


; continue if yes 
; else get error bits 


; and save them 

; check second location 
; exit if data correct 
; else read again 

; get error bits 

; save in error mask 


7; now try in reverse order 


; check second location 
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tex 


0534| 6708 BEQ.S @4 ; skip if OK 

0536| 3029 0002 MOVE 2 (Al) ,DO ; else save error bits 

053A| B940 EOR D4,D0 

053C| 8Cc40 OR DO ,D6 

053E | 

053E| B651 @4 CMP (Al) ,D3 ; and check first 

0540| 6706 BEQ.S @5 ; continue if yes 

0542| 3011 MOVE (Al) ,DO ; else get error bits 

0544| B740 EOR D3 ,DO 

0546| 8C40 OR DO ,D6 ; and save them 

0548 | 

0548| 4A46 @5 TST D6 ; any errors? 

O54A| 6706 BEQ.S @6 ; skip if no 

054C| 4A99 TST.L (AL) + ; else bump search address to next pair 
054E| 5345 SUBQ #1,D5 ; decr retry count 

0550| 66BA BNE.S @1 ; continue until count exhausted 

0552 | 

0552 | @6 RTS4 ; veturn with results in D6 

0552| 4ED4 # JMP (A4) 

0554 | 

0554 | . PAGE 

0554 | (eS Se ee ee EES 
0554 | ; Subroutine to set parms for lo tone from speaker 

0554| Peete oS ats SS er se SS ser ras Sessa Sees 
0554 | 

0554| 7060 LOTONE MOVEQ  #S60,D0 ;set frequency 

0556| 323C OOFA MOVE #250 ,D1 ;and duration 

O55A| 7404 MOVEQ #4,D2 jand volume (medium) 

055C| BSR4 TONE2 ;go do tone 

055C| 49FA 0006 # LEA @1,A4 

0560| 6000 05A4 # BRA TONE2 

0564 | #@1 

0564 | RTS2 

0564| 4ED2 # JMP (A2) 

0566] 

0566 | 

0566] . PAGE 

0566] ce a ee eee 
0566| ; Now reset MMU regs according to low and high physical address 

0566 | ; Remainder of MMU regs in context 0 are set to invalid page 

0566] H 

0566| ; Register Usage: 

0566| y AO - low physical address DO - scratch/value stored in base reg 
0566 | H Al - high physical address D1 - value stored in limit reg 
0566| 4 A2 - MMU base reg ptr D2 - unused 

0566| : A3 - MMU limit reg ptr D3 - holds base reg page incr value 
0566| : A4 - used for return address D4 - used for count of regs to set 
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0566 | 
0566 | 
0566 | 
0566 | 
0566 | 
0566 | 
0566 | 
0566 | 
0568 | 
056A] 
056C| 
056E | 
0570 | 
0570 | 
0570 | 
0570 | 
0576 | 
057C| 
0582 | 
0588 | 
058A| 
058C| 
0590| 
0590 | 
0590 | 
0590 | 
0590| 
0594| 
0596| 
0596| 
0598 | 
O59A| 
059C| 
059E | 
059E | 
059E | 
059E | 
O5A0 | 
05A4 | 
05A4 | 
O5A8 | 
O5AA | 
O5AA | 
O5AC | 
O5AE | 
O5AE | 
O5AE | 


2A08 
2Cc09 
7009 
EOAD 
EOAE 


247C 
267C 
2A7C 
263C 
787E 
3005 
323C 


4OFA 
6024 


5344 
D083 
BC80 
66F2 


4240 
323C 


4OFA 
6010 


5384 
66F6 


0000 
0000 
0002 
0000 


0700 


0004 


0c00 


0004 


8008 
8000 
0000 
0100 


tex 


A5 - MMU address increment D5 - low physical page 
A6 - not used D6 - high physical page 


; First translate memory addresses to 512 byte page values for MMU use 


RSTMMU 


MOVE.L AO,D5 ;GET MEMORY ADDRESS VALUES 
MOVE.L A1,D6 

MOVEQ #9,D0 ;SET SHIFT COUNT 

LSR.L DO,D5 ; TRANSLATE TO PAGE VALUES 


LSR.L DO ,D6 


; Now initialize for MMU write operations 


MOVEA.L #MMUSADRB , A2 ;SET MMU BASE REG PTR 

MOVEA.L #MMUSADRL,A3 ;SET LIMIT REG PTR 

MOVE.L #ADR128K,A5 ;SET INCREMENT VALUE FOR MMU ADDRESSES 
MOVE.L #PAG128K,D3 ;SET INCR VALUE FOR BASE REG CONTENTS 

MOVEQ #126 ,D4 ;SET REG COUNT - NO RESETTING OF REGS 126,127 
MOVE D5,D0 ;SET BASE VALUE 

MOVE #MEMLMT ,D1 ;SET LIMIT VALUE 


; Remap MMU regs for existing memory 


BSRS4 WRIMMU ;REWRITE SET OF MMU REGS 
LEA @1,A4 
BRA.S WRTMMU 


SUBQ #1,D4 ;DECR REG COUNT 

ADD.L D3 ,DO ;BUMP PAGE ADDRESS 

CMP.L DO ,D6 ;CHECK IF AT UPPER LIMIT 
BNE.S REMAP ;LOOP IF NO 


; Now map remainder of regs for invalid access 


CLR DO ;SET NEW BASE REG VALUE 
MOVE #INVPAG,D1 ; AND LIMIT REG VALUE 
BSRS4 WRIMMU ;GO DO REWRITE 

LEA @1,A4 

BRA.S WRTMMU 
SUBQ.L #1,D4 ;DECR COUNT 
BNE.S MAPINV ;LOOP UNTIL DONE 


; Finally reset video page to last page of memory 
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O5AE| 
05B0 | 
05B2 | 
05B8 | 
05B8 | 
O5BA| 
O5BA| 
O5BA| 
O5BA| 
O5BA| 
O5BA| 
O5BA| 
O5BA| 
O5BA| 
O5BA| 
O5BA| 
O5BA| 
O5BA| 
05C0 | 
05C2 | 
05C4 | 
05C6 | 
05C8 | 
O5CE| 
O5CE| 
05D0| 
05D0| 
05D0| 
05D0| 
05D0 | 
05D0| 
05D0| 
05D0 | 
05D0| 
05D0 | 
05D0 | 
05D0 | 
05D0 | 
05D0 | 
05D0 | 
05D0 | 
05D0| 
05D0| 
05D0 | 
05D4 | 
O5DA| 
O5DA| 


EC8E 
5346 
13c6 OOFC E800 


6066 


4039 OOFC E010 
3480 
3681 
D5CD 
D7CD 
4239 OOFC E012 


4ED4 


363C OFFF 
4039 OOFC E010 


442 


LSR.L  #6,D6 ;compute address for video page 
SUBQ #1,D6 ;decr to last page 
MOVE.B D6,VIDLTCH ;and set video latch 
BRA.S MEMTST1 ;SKIP TO NEXT TEST 
IF EXTERNAL = 1 
. ENDC 


; Subroutine to set MMU regs (context 0) - can also be called by external 
; routines that provide the following register inputs: 


i A2 = base reg address DO = value for base reg 
A3 = limit reg address D1 = value for limit reg 
' A5 = reg address increment 
WRTMMU TST.B SETUPON ;TURN SETUP ON TO ENABLE MMU ACCESS 
MOVE DO, (A2) ;SET BASE REG 
MOVE D1, (A3) ;SET LIMIT REG 
ADDA.L A5,A2 ;BUMP MMU PTRS 
ADDA.L A5,A3 
CLR.B SETUP ;BACK TO MAP LAND 
RTS4 ;AND BACK TO CALLER 
# JUMP (A4) 


; Subroutine to read MMU regs - for call by external routines. 


; Inputs: 

y D2 = context to read (0-3) 
; A2 = base reg address 

7 A3 = limit reg address 

. A4 = return address 

H A5 = reg address increment 
; Outputs: 

; DO = value of base reg 

; D1 = value of limit reg 


i A2,A3 incremented by value in A5 
; Side Effects: 


7 D3 trashed 

READMMU MOVE #SOFFF ,D3 ;set mask for result 
TST.B SETUPON ;turn setup on to enable MMU access 
TST D2 ;Ccheck context 


tex 
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O5DC | 
O5DE| 
O5E2 | 
O5E4 | 
O5E8 | 
O5EA| 
O5F0| 
O5F2 | 
O5F8 | 
O5FA| 
0600| 
0600| 
0600| 
0600| 
0602| 
0604 | 
0606| 
0608 | 
060A| 
060C| 
0612| 
0618 | 
061E| 
061E| 
0620| 
0620| 
0620| 
0620| 
0620| 
0620| 
0620| 
0620| 
0620| 
0620| 
0620| 
0620| 
0620| 
0622| 
0624| 
0624| 
0624| 
0624 | 
0626| 
062A| 
062A| 
062E| 
0632 | 


6722 

0c02 0001 

6716 

0c02 0002 

6708 

4039 OOFC EOOE 
6008 

4039 OOFC EOOE 
6006 

4039 OOFC EOOA 


3012 
C043 
3213 
C243 
D5CD 
D7CD 
4039 OOFC E008 
4039 OOFC EOOC 
4239 OOFC E012 


4ED4 


2448 
2649 


91C8 
327C 0800 


49FA 0006 
6000 0880 


BEQ.S @9 
CMP.B  #1,D2 
BEQ.S @2 
CMP.B  #2,D2 
BEQ.S @1 
TST.B SEG2ON 
BRA.S @2 

Ql TST.B SEG20N 
BRA.S @9 

@2 TST.B  SEGION 


; vread the regs 


@9 MOVE (A2) ,DO 
AND D3 ,DO 
MOVE (A3) ,D1 
AND D3,D1 


ADDA.L A5,A2 
ADDA.L A5,A3 
TST.B  SEGIOFF 
TST.B  SEG2OFF 
CLR.B SETUP 


# JMP (A4) 


; Begin memory testing by checking first 800 hex locations (2K) . 
; If error here, abort other testing and go into loop since can't relay 


; Meaningful results. 
MEMTST1 MOVEA.L AO ,A2 
MOVEA.L A1,A3 
.IF DIAGS = 1 
SUBA.L A0O,A0 


MOVEA #LOMEM , Al 
BSR4 RAMTEST 


# LEA @1,A4 
# BRA RAMTEST 
#@1 


;skip if context 0 
;context 1? 


;context 2? 


;must be context 3 
;set both seg bits 
;set for context 2 


;set for context 1 and 3 


;read base reg 
;Clear junk 
;read limit reg 
;Clear junk 
;incr ptrs 


;restore to context 0 


;back to map land 
;and back to caller 


;save memory lo, hi addresses 


;set test addresses 
;upper address 
;go do memory test 


RMO00 


tex 
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0632 | 
0634 | 
0634 | 
0634 | 
0634 | 
0636| 
0638 | 
063A| 
0640| 
0640| 
0644| 
0648| 
0648 | 
0648 | 
0648 | 
064c| 
0650| 
0650| 
0654| 
0656| 
0658 | 
0658 | 
065C| 
0660| 
0660| 
0662| 
0666| 
0668 | 
066A| 
066C| 
066C| 
066C| 
066C| 
066C| 
066C| 
066C| 
0670| 
0672 | 
0674| 
0678 | 
0678 | 
067C| 
0680 
0684| 
0688 | 
068A| 
068E| 


6738 


200A 
E088 
EE88 
13c0 


4OFA 
6000 


45FA 
6000 


303C 
5340 
66FC 


45FA 
6000 


303C 
3080 
3210 
60FA 


307C 
T07F 
4298 
51C8 


31C3 
31CE 
21CA 
21CB 
97CA 
21CB 


OOFC E800 


0006 
01B4 


0006 
FFO06 


61A8 


0006 
FEF6 


A55A 


0180 


FFFC 


0186 
0184 
02A4 
0294 


02A8 


BEQ.S 


INITMEM 


tee 


;skip if OK 


; Error in low memory - reset video latch, beep speaker and go into R/W loop 


MOVE .L 
LSR.L 
LSR.L 
MOVE .B 
BSR4 
# LEA 
# BRA 


#@1 


TONEDLY SUBQ 


@2 MOVE 


. ELSE 


A2,D0 

#8 ,DO 

#7,D0 

DO, VIDLTCH 

CONSET 
@1,A4 
CONSET 


LOTONE 
@1,A2 
LOTONE 


#TNTHSEC ,DO 
#1,D0 
TONEDLY 
LOTONE 
@1,A2 
LOTONE 


#PATRN2 ,DO 
DO, (AO) 
(AO) ,D1 

@2 


;get low physical address 
;convert to page value 


;set video latch to bad area 
;ensure contrast on 


;beep speaker twice for low memory error 


;delay for about 1/10 sec RMO000 


;do second beep 


;set pattern for usess 


;loop with random display on screen 


; {DIAGS} 


; Now attempt to initialize status areas and save results 


INITMEM MOVEA 
MOVEQ 

@2 CLR.L 
DBF 


#STATUS , AO 
#127 ,D0 
(AO) + 

DO, @2 


D3 ,MEMRSLT 
A6,SIZRSLT 
A2 ,MINMEM 
A3 ,MAXMEM 
A2,A3 

A3 , TOTLMEM 


;get ptr to start of status area RMOO0O 
7set count 
;clear it 


;until done 


;save test results 

;save sizing results 
;Save min memory address 
;Save max memory address 
;compute total memory 
jand save also 
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068E | 
0694 | 
0696 | 
069A| 
069A| 
069E| 
069E| 
06A6 | 
06A6 | 
06A6 | 
06A6 | 
06A6 | 
06A6 | 
06A6 | 
06A8 | 
O6AC | 
O6AC | 
O6AC | 
O6AC | 
O6AC| 
06B0 | 
06B2 | 
06B4 | 
06B6 | 
06B8 | 
O6BA| 
O6BC | 
06C0 | 
06C4 | 
06C8 | 
06cC | 
06D0 | 
06D4 | 
06D8 | 
O6DC | 
06E0 | 
06E0 | 
06E0 | 
06E0 | 
06E0 | 
06E2 | 
06E2 | 
06E2 | 
06E2 | 
06E2 | 
06E2 | 
06E6 | 


207C 
97C8 
21CB 


31C2 


21FC 


6104 
6000 


41FA 
93C9 
7040 
22C8 
5340 
6EFA 
6126 
41FA 
21C8 
41FA 
21C8 
41FA 
21C8 
41FA 
21C8 
21C8 


4E75 


47FA 
21CB 


0000 


0110 


01B0 


0000 


00CA 


003E 


0090 
000C 
0032 
0010 
0036 
007C 
0060 
0028 
002C 


005E 
0008 


tex 


8000 MOVE.L #HEX32K,A0 ;compute base address for screen 
SUBA.L A0,A3 
MOVE.L A3,SCRNBASE jand save 
MOVE D2 ,MMURSLT ;and save MMU results also 
02B0 0260 MOVE.L #KBDQ,KBDQPTR ;init COPS buffer pointer for later use 
. PAGE 
; Initialize exception and trap vectors to catch unexpected errors 
INITVCT BSR.S SETVCTRS ;init vectors 
BRA SCCSET ;continue testing CHG027 
; Subroutine to set up default vectors 
SETVCTRS 
LEA MISC ,AO 
SUBA.L A1,Al1 
MOVEQ #64,D0 
@1 MOVE.L AO, (Al)+ ; £111 with unknown ones 
SUBQ #1,D0 
BGT @1 
BSR.S SETBUSVCT ; then, with special ones RM000 
LEA AERR , AO 
MOVE.L A0Q,ADRVCTR 
LEA IERR , AO 
MOVE.L A0Q,ILLVCTR 
LEA NMI ,AO 
MOVE.L AOQ,NMIVCT 
LEA TRPERR , AO ; Same routine for line 1010 and 1111 
MOVE.L A0O,L10VCTR 
MOVE.L AO0O,L11VCTR 
.IF USERINT = 0 
. ENDC 
RTS 
; Subroutine to setup bus error vector RMOO0O 
SETBUSVCT 
LEA BERR , A3 ;setup default vector RM000 
MOVE.L A3,BUSVCTR RM000 
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O6EA| 
O6EC| 
06EC| 
06EC| 
O6EC| 
O6EC| 
O6EC| 
06FO| 
06F2 | 
06F6| 
O6F8 | 
O6F8 | 
O6EFC| 
O6FE| 
0702 | 
0704| 
0704 | 
0708 | 
070A 
070E | 
0710| 
0710| 
0714 | 
0718 | 
O71E| 
0722 | 
0724| 
072A | 
072E | 
0730| 
0730| 
0734| 
0736| 
0736| 
073A| 
073¢| 
0740| 
0742 | 
0742 | 
0746| 
0748 | 
074¢c| 
074E | 
0752 | 
0754| 
0758| 
0758| 


4E75 


21C7 
7TEOO 
08C7 
606C 


21C7 
7TEOO 
08C7 
6060 


21C7 
7TEOO 
6100 
6620 


08C7 
6100 
4039 
0801 
6706 
0281 
21c1 
6034 


08C7 
602E 


21C7 
7TEOO 
08C7 
6022 


21C7 
7TEOO 
08C7 
600A 
21C7 
7TEOO 
08C7 


01AC 


0007 


01AC 


0008 


01AC 
085C 
0016 
O8DA 
OOFC 
0005 
FFFF 
01A6 
0004 


01AC 


0009 


01AC 


0005 


01AC 


0006 


E01C 


8000 


IERR 


NMI 


@1 


NOTPE 


TRPERR 


EXCPO 


MOVE.L D7,D7SAV 
MOVEQ #0,D7 

BSET #MISEXCP ,D7 
BRA.S EXCP1 


MOVE.L D7,D7SAV 
MOVEQ #0,D7 

BSET #ILLEXCP ,D7 
EXCP1 


MOVE.L D7,D7SAV 
MOVEQ #0,D7 
BSR TSTSTAT 
NOTPE 


BSET #MPAR ,D7 


BSR GETPADDR 
TST.B  PAROFF 
BTST #5,D1 
BEQ.S @1 


ANDI.L #VMSK,D1 
MOVE.L D1,PEADDR 
BRA.S EXCP1 


BSET #CPUINTR ,D7 
BRA.S EXCP1 


MOVE.L D7,D7SAV 
MOVEQ #0,D7 

BSET #TRPEXCP ,D7 
BRA.S EXCP1 


MOVE.L D7,D7SAV 
MOVEQ  #0,D7 

BSET #BUSEXCP ,D7 
EXCPO 
MOVE.L D7,D7SAV 
MOVEQ #0,D7 

BSET #ADREXCP ,D7 


;save incoming value 


;set error indicator 


;save incoming value 


;set error indicator 


;save incoming value 


;check status reg for parity error 
;skip if not 

;set error indicator 

;get and save error address 
;toggle to clear error bit 

;video error? 

;skip if not 

;mask if yes 

;sSave converted error address 

;go to exit 


;else set NMI code 
; and exit 


;save incoming value 


;set error indicator 


;save incoming value 
;set error indicator 
;save incoming value 
;set error indicator 


; GROUP O EXCEPTIONS HERE 


RMO000 


CHGO15 


CHGO15 


CHGO15 
CHGO15 
CHGO15 
CHGO15 


tex 
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0758 | 
075C| 
0760 | 
0764 | 
0764 | 
0764 | 
0768 | 
076C| 
0770 | 
0774 | 
0774| 
0774 | 
0774 | 
0774| 
0774| 
0774 | 
0774| 
0774 | 
0778 | 
077C| 
0780 | 
0780| 
0780| 
0780 | 
0780| 
0780| 
0780| 
0780 | 
0780| 
0780| 
0780 | 
0780| 
0784 | 
0788 | 
0788 | 
078E | 
0790 | 
0790| 
0794 | 
0796| 
0796| 
0798 | 
079C| 
079E | 
O7A0 | 
O7A2 | 
O7A2 | 


31DF 
21DF 
31DF 


31DF 
21DF 
31C0 
6000 


STFA 
21CB 
6100 


47FA 
21CB 


207C 
7008 


4DFA 
6022 


670A 
08C7 
4287 
6BEO 
600A 


0280 
0282 
0286 


0288 
028A 
028E 
0C28 


03E4 
0008 
0952 


002C 
0008 
OOFC 


0004 


000B 


D931 


MOVE (SP) +, EXCFC ; SAVE THE EXTRA DATA 
MOVE.L (SP)+,EXCADR 
MOVE (SP) +,EXCIR 

EXCP1 ; GROUP 1 EXCEPTIONS HERE 
MOVE (SP) +,EXCSR ; SAVE COMMON INFO 
MOVE.L (SP) +,EXCPC 
MOVE DO ,EXCTYPE ; Save error type 
BRA TSTCHK ; and go display error 
. PAGE 


; Initialize SCC chip for Applebus use. 
; Bus error vector setup in case of problems. 


, 


SCCSET 
LEA NOIO,A3 ;set bus error vector in case no IO board 
MOVE.L A3,BUSVCTR ; 
BSR RSTSCC ;go do setup 


; Now test VIA for parallel port and contrast latch. 
; A read/write test on the timer 1 latches is done, then contrast 
; is set if OK. 


VIA2TST 
.IF DIAGS = 1 
VIA2CHK 
-IF ROM16K = 1 
LEA VIA2VCT , A3 ;OK - set up special bus vector 
MOVE.L A3,BUSVCTR 


MOVE.L #<VIA2BASE+T1LL2>,A0 ;set base address of timer low latch 


MOVEQ #8,D0 ;set offset to high latch 
BSRS6 VIATST ;and go do test 

# LEA @1,A6 

# BRA.S VIATST 

#@1 
BEQ.S @2 ;if OK, continue 
BSET #VIA2 ,D7 ;else set error bit 
TST.L D7 ;check if in loop mode 
BMI.S VIA2CHK ;restart if yes 
BRA.S @3 ;else skip contrast setting 
. ENDC 


CHG027 


CHG027 
CHG027 
CHG027 


tex 
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O7A2| 4A87 @2 TST.L D7 ;in loop mode? 

07A4| 6BDA BMI.S VIA2CHK ;restart if yes 

07A6 | BSRS4 CONOFF ;go turn off contrast 

O7A6| 49FA 0004 # LEA @1,A4 

O7AA| 6054 # BRA.S CONOFF 

O7AC | #@1 

O7AC | 

O7AC | . ENDC ; {DIAGS} 

O7AC | 

O7AC| 6074 @3 BRA.S SCRNTST ;else skip to next test 

O7BE | 

O7BE | .IF DIAGS = 1 

O7BE | Se ee ee en Sn So 
O7BE | ; Bus error handler for VIA #2 use 

O7BE | Fc ac aa ca cm eeu ac rc aa a ae i ec 
O7BE | 

O7AE| 7033 VIA2VCT MOVEQ #EVIA2 ,DO ;SET ERROR CODE 

07B0| O08C7 O000B BSET #VIA2 ,D7 ;set indicator 

07B4| 6000 0162 BRA rovctT ;AND GO HANDLE I/O EXCEPTION 
07B8 | . ENDC ; {DIAGS} 

07B8 | 

07B8 | .IF ROM16K = 1 

07B8 | . PAGE 

07B8 | PaaS ee ee Se Se ee ee ee ee Sa So SSeS See 
07B8 | - Subroutine to do VIA testing 

07B8 | ; AO = address of first timer latch 

07B8 | : DO = offset to other latch 

07B8 | pe ae SS eae oa ee eas eae eS SS 
07B8 | 

07B8| 2248 VIATST MOVE.L AO,A1 ;set up address for second latch 
O7BA| D3CO ADDA.L DO,A1 

07BC| 7000 MOVEQ  #0,D0 ;for error use 

O7BE| 4202 CLR.B D2 ;clear old data value 

07CO| 4210 MOVE .B #0, (AO) ;and the timer latches 

07C2| 4211 MOVE.B #0, (Al) 

07C4 | 

07C4| 363C OOFF MOVE #SFF,D3 ;set up start value 

07C8 | BSRS4 VIARW ;go do read/write test 

07C8| 49FA 0004 # LEA @1,A4 

O7CC| 6002 # BRA.S VIARW 

O7CE | #@1 

O7CE | RTS6 jand return 

O7CE| 4ED6 # JMP (A6) 

07D0 | 

07D0 | ; Subroutine to do read/write test - loops thru all 256 values 
07D0 | 

07D0| B410 VIARW CMP.B (AO) ,D2 ;check for old values first 


tex 
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07D2| 6620 BNE.S VIAFAIL 

07D4| B411 CMP .B (Al) ,D2 

07D6| 661C BNE.S VIAFAIL 

07D8 | 

07D8| 1083 MOVE.B_ D3, (AO) ;set new value in low timer latch 
O7DA| B411 CMP .B (Al) ,D2 ;ensure high latch not affected 
O7DC| 6616 BNE.S VIAFAIL 

O7DE| B610 CMP .B (AO) ,D3 ;verify new low latch setting 
O7EO| 6612 BNE.S VIAFAIL 

O7E2 | 

O7E2| 1283 MOVE.B D3, (Al) ;set new value in high timer latch 
O07E4| B610 CMP .B (AO) ,D3 ;ensure low latch not affected 
O7E6| 660C BNE.S VIAFAIL 

07E8| B611 CMP .B (Al) ,D3 verify new high latch setting 
O7EA| 6608 BNE.S VIAFAIL 

O7EC | 

O7EC| 1403 MOVE.B D3,D2 ;the new value becomes the old 
O7EE| 51CB FFEO DBF D3 , VIARW ;loop thru all 256 values 

O7F2| 6002 BRA.S VIARWEND 

O7F4 | 

O7F4| 5240 VIAFAIL ADDQ #1,D0 ;set for error 

O7F6| 

O7F6| 4A40 VIARWEND TST DO ;set zero bit indicator 

O7F8 | RTS4 

O7F8| 4ED4 # JMP (A4) 

O7FA| . ENDC 

O7FA| . PAGE 

O7FA| pocccco noo = 
O7FA| ; Subroutine to set contrast latch - sets for default, off or value in DO 
O7FA| poccco oon = 
O7FA| 

O7FA| 103C 0080 CONSET MOVE.B #S$80,D0 ;set mid range value default 
O7FE| 6002 BRA.S CONSET2 

0800| 

0800| 7OFF CONOFF MOVEQ  #-1,D0 ;set for contrast off 

0802 | CONSET2 ;for external entry 

0802| 207C OOFC D901 MOVE.L #VIA2BASE,A0 ;GET 6522 BASE ADDR 

0808| 117C 0084 0010 MOVE.B #584,DDRB2 (A0) ;ENSURE NO STRAY DATA TO CONTRAST 
O80E| 10BC 0004 MOVE.B #4,ORB2(A0) ; LATCH BY DISABLING DRIVERS 
0812| 117C OOFF 0018 MOVE.B #SFF,DDRA2(A0) ;NOW SET PORT A AS OUTPUTS 

0818| 1140 0008 MOVE.B DO,ORA2 (AO) ;set contrast value 

081C| O8DO 0007 BSET #7, ORB2 (AO) ;AND STROBE IT 

0820| 

0820| RTS4 ;RETURN TO CALLER 

0820| 4ED4 # JMP (A4) 

0822 | 

0822 | 


ney 
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0822 | 
0822 | 
0822 | 
0822 | 
0822 | 
0822 | 
0822 | 
0822 | 
0822 | 
0822 | 
0822 | 
0822 | 
0822 | 
0822 | 
0826 | 
082A | 
082A | 
082E | 
0832 | 
0832 | 
0834 | 
0838 | 
0838 | 
0838 | 
0838 | 
083C| 
083E| 
083E| 
0842| 
0844| 
084a| 
084c| 
084c| 
0850| 
0850| 
0854| 
0858 | 
0858 | 
08sc| 
085E| 
0860 
0862| 
0864 | 
0866| 
0868 | 
O86A| 
O86A| 


2078 
2278 


4OFA 
6000 


676E 
08C7 


6100 
6136 


2278 
2049 
247C 
91CA 


48E7 


4OFA 
6000 


4CDF 
670E 
2808 
6112 
2248 
91CA 
2008 
6EE2 


6036 


0110 
02A8 


0006 
0680 


0015 


064A 


0110 


0000 


00EO 


0006 
065A 


0700 


8000 


#@1 


Test memory to be used for screen. 
used for test icon display. 


tex 


The screen can then be 


Default choice is last 32K of memory. 


If this is invalid, do backwards scan through memory until a valid 
area is found. 


Assumes : 


sizing routine) 


.IF DIAGS = 1 


MOVE.L SCRNBASE,AO 
MOVE.L TOTLMEM,A1 


BSR4 
LEA 
BRA 


BEQ.S 
BSET 


RAMTEST 
@1,A4 
RAMTEST 


INVTST 
#MEM , D7 


location SCRNBASE = base address of default screen (set by 


;get base address of screen 
;set end address 
;and go do test 


;continue if no error 
;else set memory read/write error 


save error results and then start search for good video page 


BSR 
BSR.S 


MOVE .L 
MOVE .L 
MOVE .L 
SUBA.L 


MOVEM. 
BSR4 


BRA 


L 


TSTINIT 
SCRNSAV 


SCRNBASE , Al 
A1,A0 
#HEX32K ,A2 
A2,A0 


A0-A2, - (SP) 

RAMTEST 
@1,A4 
RAMTEST 


(SP) +,A0-A2 
SCRNOK 
AO,D4 
SCRNSAV 
AO,A1 
A2,A0 
AO,DO 

@1 


INVTST 


jinitialize for further testing 
;save results 


;set new search end address 


;screen size is 32K 
;set new start addr (end-32K) 


;Ssave search addresses 
7go test 


;restore addresses (no effect on CCR) 
;skip if OK (non-zero CCR if error) 
7else go save results 


;set next end 


; and start addresses 
;continue thru all of memory if necessary 


;continue testing, leave screen at default 
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086C| 

086C| 21C8 0110 SCRNOK MOVE.L AO,SCRNBASE ;Ssave new screen base 

0870| 6114 BSR.S SETVLTCH ;and go set video latch 

0872| 602E BRA.S INVTST ;and exit to next test 

0874 | 

0874 | PRSSS SS SSS se Se SSeS SSS SS sas SSeS SSS a SSS Sess sas4 seo ses a55-5-H4$--S-S-5> 
0874 | ; Subroutine to save error results from screen test routine 

0874 | ; Inputs: 

0874 | ; A3 = ptr to base of save result area 

0874 | ; D4 = base address of test area 

0874 | ; Outputs: 

0874 | i None 

0874 | ; Side Effects: 

0874 | : D1/D3-D4 trashed 

0874 | Fa ak a amma cm mma i mo a ear a 
0874 | 

0874| 7211 SCRNSAV MOVEQ #17,D1 ;divide base address by 128K 

0876| E2AC LSR.L D1,D4 

0878| D844 ADD D4,D4 ;double for word index to save area 
O87A| 2203 MOVE.L D3,D1 ;combine error results 

087C| 4843 SWAP D3 

O87E| 8641 OR D1,D3 

0880| 8773 4000 OR D3 ,0 (A3 ,D4) ;save and exit 

0884| 4E75 RTS 

0886 | 

0886 | pe eae ea ee ee ee ee ee ee eee a ee eee eee 
0886 | ; Subroutine to set the video latch 

0886| ; Inputs: 

0886 | iY Location SCRNBASE = logical base address for screen 

0886| ; Outputs: 

0886| 4 None 

0886| ; Side Effects: 

0886 | S DO-D1 trashed 

0886 | PESTS SST SS tre aS Seats sr sates Sasser eer aS Stress esses 
0886 | 

0886 | SETVLTCH 

0886| 2438 0110 MOVE.L SCRNBASE,D2 ;get logical screen base address 
O88A| 2238 02A8 MOVE.L TOTLMEM,D1 ;get physical amount of memory 

O88E| 9282 SUB.L D2,D1 ;compute screen base offset 

0890| 2038 0294 MOVE.L MAXMEM,DO ;get max physical address 

0894| 9081 SUB.L D1,D0 ;compute physical screen base address 
0896| E088 LSR.L  #8,D0 ;convert to page value 

0898| EE88 LSR.L  #7,D0 

089A| 13CO OOFC E800 MOVE.B DO0O,VIDLTCH ;set latch 

O8A0| 4E75 RTS ;and exit 

08A2 | 

08A2 | . PAGE 


tex 
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08A2 | 
08a2 | 
08a2 | 
08a2 | 
08A2 | 
08a2 | 
08A2 | 
08a2| 
08a2 | 
08A2 | 
08A2 | 
08a2 | 
08a2 | 
08a2 | 
08a2 | 
08A2 | 
08A2 | 
08a2 | 
08a2 | 
08A2 | 
08a6 | 
08a8 | 
08a8 | 
08a8 | 
08a8 | 
08a8 | 
O8ac | 
08B0 | 
08B0 | 
08B0 | 
08B0 | 
08B4 | 
08B8 | 
O8BE| 
08C0 | 
08C0 | 
08c4 | 
08cs8 | 
08cs8 | 
O8Ca| 
O8CE | 
08D0 | 
08D2 | 
O8D6 | 
08D6 | 
08D8 | 
OsDA| 


6100 
6134 


4OFA 
6000 


STFA 
21CB 
207C 
7002 


4DFA 
6000 


670C 
08C7 
4287 
6BDE 
6000 


4287 
6BD6 
600E 


2832 


0006 
FF4C 


0546 
0008 
OOFC 


0006 
FEF2 


000A 


OAC6 


DD8D 


7; Now check state of INVID bit 
; If yes, rewrite last 4 words 


VIA1TST 
.IF USERINT = 1 


tex 


to see if inverse video is installed. 
of screen page to avoid retrace line. 


; CHG013 
; {INVERTCK} CHG013 
; {DIAGS} 


; Draw desktop on screen for test icon display 


BSR DRAWDESK 
BSR.S DSPCPURM 


. ENDC 


BSR4 CONSET 


# LEA @1,A4 
# BRA CONSET 
#@1 


.IF ROM16K = 1 
VIA1CHK LEA VIAL1VCT ,A3 
MOVE.L A3,BUSVCTR 


;draw the desk 
;and CPU ROM id CHGO01 


;set default contrast 


;first set up bus error vector 


MOVE.L #<VIA1BASE+T1LL1>,A0 ;set base address of timer low latch 


MOVEQ #2,D0 
BSR6 VIATST 


# LEA @1,A6 
# BRA VIATST 
#@1 
BEQ.S @2 
BSET #VIA1 ,D7 
TST.L D7 
BMI.S VIA1CHK 
BRA TSTCHK 
@2 TST.L D7 


BMI.S VIA1CHK 
BRA.S COPSENBL 


;set offset to high latch 
;go test 


;skip if OK 

;else set error bit 

; Loop? 

yyes - test again 

;else abort further testing 


;check for loop mode 


;else go test COPS 
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O8DC | 
O08DC | 
O8DC | 
O08DC | 
O08DC | 
O08DC | 
O8DC | 
O8E0 | 
O8E2 | 
O8E4 | 
O8E8 | 
O8EA | 
O8EA | 
O8EA | 
O8EA | 
O8EA | 
O8EA | 
O8EA | 
O8EA | 
O8EA | 
O8EE | 
O8F2 | 
O8F4 | 
O8F6 | 
O8F8 | 
O8FA| 
O8FA| 
O8FC| 
0902 | 
0906| 
O90A| 
090A] 
090E | 
0910| 
0912 | 
0916| 
0916| 
0916| 
0916| 
0916| 
0916| 
0918 | 
091C| 
0920| 
0920| 
0920| 
0920| 


103A 
7A03 
7C50 
6100 
4E75 


STFA 
21CB 
612C 
6514 
4287 
6BFO 


2007 
0280 
6700 
6000 


08C7 
4287 
6BD8 
6000 


7034 
08C7 
6000 


371F 


2E54 


002A 
0008 


001F 
OOBE 
OA92 


000C 


OA86 


0012 
FE3A 


FEFF 


DSPCPURM 
MOVE.B REV,DO ;read ROM rev CHG001 
MOVEQ #ROMIDROW,D5 ;setup cursor ptrs CHGO0O1 
MOVEQ #ROMIDCOL , D6 ; CHGO01 
BSR DSPVAL ;do display CHGO01 
RTS ; CHGO01 
. ENDC 
. PAGE 


COPSENBL 
LEA COPSVCT ,A3 ;set up bus error vector first 
MOVE.L A3,BUSVCTR 
BSR.S  CPSINIT ;enable COPS 
BCS.S COPSBAD ;skip if error 
TST.L D7 ;looping desired? 
BMI.S COPSENBL ;go repeat test 
MOVE.L D7,D0O ;get error indicator 
ANDI.L #CPIOMSK,DO ;mask off don't care bits 
BEQ RSTSCAN ;continue if OK to do reset scan 
BRA TSTCHK ;else go report error 
COPSBAD BSET #IOCOPS ,D7 ;else set COPS error 
TST.L D7 ;looping desired? 
BMI.S COPSENBL 7go repeat test 
BRA TSTCHK ;else abort further testing 


, 


; Bus error handler for COPS testing with entry point for other I/O tests 


, 


COPSVCT MOVEQ #EIOCOP ,DO ;SET ERROR CODE 
IovctT BSET #IOEXCP ,D7 ;SET I/O EXCEPTION ERROR 
BRA EXCPO ;AND GO HANDLE EXCEPTION 


tex 
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0920| 
0926| 
092¢| 
0932| 
0938 | 
093E| 
093E| 
093E| 
093E| 
0940| 
0942 | 
0944| 
0944| 
0946| 
0948| 
094A | 
094a| 
094a| 
094c| 
094E| 
0950| 
0952| 
0954| 
0954| 
0954| 
0956| 
0956| 
0956| 
0956| 
0956| 
0956| 
0956| 
0956| 
0956| 
0956| 
0956| 
O95A| 
O95A| 
095¢c| 
0960| 
0966| 
0968 | 
096A| 
096E| 
0970| 
0972| 
0974| 


207C OOFC DD81 
117C 0001 0016 
0028 0009 0018 
117C 007F 001C 
117C O007F 001A 


4240 
6114 
6510 


7070 
610E 
650A 


7050 
6108 
6504 
7060 
6102 


4E75 


48E7 F8E0O 


40E7 

007C 0700 
207C OOFC DD81 
2248 

2448 

D4FC 0006 

7440 

76FF 

7806 


CPSINIT MOVEA.L #VIA1BASE,A0 ;GET VIA BASE ADDRESS 
MOVE.B #$01,ACR1 (AO) ;SET PORT A LATCH ENABLE 
OR.B #$09, PCRI1 (AO) ;SET HANDSHAKE ENABLE 


MOVE.B #S7F,IER1(AO)  ;CLEAR ALL INTRPT ENABLES 
MOVE.B #S7F,IFR1(A0)  ;AND CLEAR FLAGS 


; Now turn COPS on, disabling mouse and NMI key 


TURNON CLR DO ;SET FOR PORT ON CMD 
BSR.S COPSCMD ;SEND TO COPS 
BCS.S @1 ;EXIT IF TIMEOUT ERROR 
MOVEQ #$70,D0 ;DISABLE MOUSE 
BSR.S COPSCMD 
BCS.S @1 
.IF DEBUG = 0 
MOVEQ #$50,D0 j;disable NMI key 
BSR.S COPSCMD 
BCS.S @1 


MOVEQ #$60,D0 
BSR.S §COPSCMD 
. ENDC 


@1 RTS ;AND EXIT 


; Subroutine to send cmd to COPS 

; Assumes registers: 

; DO = cmd value 

; I£ COPS does not respond, timeout error indicated by setting carry bit. 


COPSCMD 
MOVEM.L DO-D4/A0-A2,-(SP) ;save regs 
DISABLE ;disable all interrupts 
# MOVE SR,- (SP) 
# ORI #$0700,SR 
MOVEA.L #VIA1BASE ,A0 ;set COPS VIA interface ptr 
MOVEA.L AO,Al1 ;save for use as port B output reg address 
MOVEA.L AO ,A2 
ADDA #DDRA1 , A2 ;compute address for port A data direction reg 
MOVEQ #$40,D2 ;set up constants for later use 


MOVEQ #-1,D3 
MOVEQ #6,D4 


tex 
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0974| 1140 OO1E MOVE.B DO, PORTAI1 (AO) ;set cmd in data reg (no handshake) 
0978 | 

0978 | fe ee ne Be Be a ee 
0978 | ; First find a ready state (CRDY low) 

0978 | ; Each of the following loops take about 32 machine cycles = 6.4 us plus 
0978 | 7; a variable amount of time for sync with 6522 (max = 2us) 

0978 | aaa ala a al a nt elle 
0978 | 

0978| 323C 061A MOVE #5061A,D1 j;set timeout for about 10 ms 

097C| 5341 @3 SUBQ #1,D1 

O97E| 6732 BEQ.S @1 jexit if timeout 

0980| 0911 BIST D4, (Al) ;else wait for "ready" (bit 6 = CRDY) 
0982| 66F8 BNE.S @3 

0984 | 

0984 | ; Now find the next ready state to insure enough time available for data 
0984 | 

0984| COFC 0001 MULU #1,D0 7kill some time (about 15.2 us) to get 
0988 | ; out of previous CRDY 

0988| 323C 061A MOVE #5061A,D1 ;reinit timeout count 

098C| 5341 @4 SUBQ #1,D1 

098E| 6722 BEQ.S @1 ;exit if timeout 

0990| 0911 BIST D4, (Al) ;wait for another "ready" 

0992| 66F8 BNE.S @4 

0994 | 

0994| 1483 MOVE.B D3, (A2) ; ok, jam out the data 

0996| 

0996| ; Now wait for CRDY high and then hold data for COPS to read 

0996 | 

0996| 323C 061A MOVE #5061A,D1 ;set timeout for about 10 ms 

O99A| 5341 @e5 SUBQ #1,D1 

099C| 6714 BEQ.S @1 ;exit if timeout 

O099E| 0911 BTST D4, (Al) ;wait for "not-ready" 

O9A0| 67F8 BEQ.S @5 

09A2 | 

O9A2| 700A MOVEQ  #5SA,D0 ; force about a 40 ms 

09A4| 5340 @6 SUBQ #1,D0 ; delay for COPS hold time 

O9A6| 6EFC BGT.S @6 

09A8 | 

O9A8| 4212 CLR.B (A2) ; veset direction reg now 

O9AA| 117C 0082 001C MOVE.B #$82,IER1(A0) ; and, enable CA1 

09B0| 6008 BRA.S @2 7 go to normal exit 

09B2 | 

09B2 | ; Timeout occurred - set error indicator 

09B2 | @1 ENABLE ; reenable 

09B2| 46DF # MOVE (SP)+,SR 

09B4| 003C 0001 ORI.B #501,CCR ;set carry bit 

09B8| 6002 BRA.S @9 ;skip to exit 


tex 
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O9BA| 
O9BA| 
O9BA| 
09BC | 
09C0 | 
09C2 | 
09C2 | 
09C2 | 
09C2 | 
09C2 | 
09C2 | 
09C2 | 
09C2 | 
09C2 | 
09C2 | 
09C2 | 
092 | 
09C2 | 
09C2 | 
09¢2 | 
09C2 | 
09C2 | 
09C2 | 
092 | 
09C2 | 
09C2 | 
09C2 | 
09C2 | 
09C2 | 
092 | 
09C2 | 
09C6 | 
09CA| 
09cc | 
09CE| 
09CE| 
09D2| 
09D2| 
09D2| 
09D4| 
09D6 | 
09D8 | 
O9DA| 
09DC | 
09Dc | 
09DC | 
09E0| 


46DF 
4CDF 
4E75 


2278 
347C 
616C 
64FC 


6100 


4281 
4283 
4284 
615E 
6560 


0co0 
6724 


O71F 


0260 
02Cc0 


OODA 


0080 


@2 


; Send 
; COPS 


tex 


ENABLE ;restore interrupt levels 
MOVE (SP)+,SR 

MOVEM.L (SP)+,D0-D4/A0-A2 ;restore regs 

RTS ;and return to caller 

. PAGE 


COPS for proper reset codes. Delay added for normal COPS power-up 
of about 1.7 seconds. 


reset signal and then scan keyboard/mouse interface. First "clears" 
of any pending codes, and then issues reset. Works via 


; a "state machine" that checks codes received and sets flags as follows: 


RSTO 


D1 = 0 - reset signal in place 
= 1 - reset signal removed 
D3 = 0 - no keyboard codes received => keyboard disconnected 
= 1 - keyboard disconnect code ($80/SFD) received 
=> ignore, may be old keyboard 
= 2 - keyboard disconnect/connect codes ($80/$FD/$80/id) received 
=> keyboard connected 
D4 = 0 - no mouse codes received => mouse connected 
= 1 - only mouse connect code ($87) received => ignore, may be old sys 
= 2 - mouse connect/disconnect ($87/$07) codes received 
=> mouse disconnected 
MOVE.L KBDQPTR,A1 ;setup buffer ptrs 
MOVEA #QEND,A2 
BSR.S  GETJMP ;clear COPS queue, saving data 
BccC.S @1 
BSR RSTKBD ;do reset of keyboard/mouse interfaces 


-L D1 ;init some flags 
CLR.L D3 
CLR.L D4 
BSR.S  GETJMP ;check for data 
BCS.S  RSTXIT ;exit if none (may be old keyboard) 
; State 0 - waiting for reset flag or mouse connect code 
CMPI.B #RSTCODE,DO ;reset flag? 
BEQ.S  RST1 ;skip if yes to state 1 
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09E2 | 
09E6| 
09E8 | 
O9EC| 
O9EE | 
09F0| 
09F2 | 
09F4 | 
09F6| 
09F6| 
09F6| 
09F6| 
09F8 | 
O9FA| 
O9FC| 
0A00 | 
0A02 | 
0A04 | 
0A06 | 
0A06 | 
0A06 | 
OA06 | 
OA08 | 
OA0A | 
OAOE | 
0A10| 
0A12 | 
0A14 | 
0A14 | 
0A18 | 
0A1A | 
OALE | 
0A20| 
0A22 | 
0A26| 
0A28 | 
0A2C | 
0A2C | 
0A30| 
0A32 | 
0A36 | 
0A36| 
0A38 | 
0A38 | 
0A38 | 
0A38 | 
0A3A| 


0co0 
670E 
0c00 
6602 
7802 
6146 
6548 
60E6 


7801 
613E 
6540 
0c00 
66DA 
7802 
60EA 


6130 
6532 
0c00 
6604 
7601 
60DC 


0c00 
6208 
11C0 
7602 
60CE 
0c00 
6604 
08C7 


0co00 
6604 
08C7 


60B8 


6144 
4E75 


0087 


0007 


0007 


OOFD 


OODF 


01B2 


OOFF 


000D 


OOFE 


000C 


CMPI.B #MSPLG,DO 
BEQ.S RST2 
CMPI.B #MSUNPLG,DO 
BNE.S GETO 

MOVEQ #2,D4 


GETO BSR.S GETJMP 


, 


BCS.S RSTXIT 
BRA.S RSTO 


;mouse connect code? 
;skip if yes to state 2 
;mouse disconnect code only? 


;set flag for disconnect state 
;go get next code 

;exit if no more codes 

;else continue scan loop 


State 2 - waiting for mouse unplugged code 


RST2 MOVEQ #1,D4 


, 


BSR.S GETJMP 
BCS.S RSTXIT 
CMPI.B #MSUNPLG,DO 
BNE.S RSTO 

MOVEQ #2,D4 
BRA.S GETO 


;set flag for mouse connect received 
;go get next byte 

7exit if none or queue full 

;mouse disconnect code? 

;no - return to state 0 

7yes - set flag 

;and return to state 0 


State 1 - waiting for reset code 


RST1 BSR.S GETJMP 


@1 


@2 


@3 


@4 


, 


BCS.S RSTXIT 
CMPI.B #KUNPLG,DO 
BNE.S @1 

MOVEQ #1,D3 
BRA.S GETO 


CMPI.B #$DF,DO 
BHI.S @2 

MOVE.B DO,KEYID 
MOVEQ  #2,D3 
BRA.S  GETO 
CMPI.B #KCERR,DO 
BNE.S @3 

BSET #KBDCOPS ,D7 


CMPI.B #ICERR,DO 
BNE.S @4 

BSET #IOCOPS ,D7 
BRA.S  GETO 


Insert to save code space 


GETJMP BSR.S GETDATA 


RTS 


;go get next byte 

;exit if no more 
;keyboard unplugged code? 
;skip if not 

;else set flag 

;and return to state 0 


;id code? 

;skip if not 

;else save for later use 
;update flag 

;and return to state 0 
;Keyboard COPS error? 
;skip if not 

;else set error indicator 
;1/O COPS error code? 
;skip if not 


;else set error indicator 


;continue scan from state 0 


;go get COPS data 
;and return to caller 


tex 
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0A3C| 
0A3C | 
0A3C| 
OA3E | 
0A40| 
0A44| 
0A46| 
0A48 | 
OA4A| 
OA4A| 
OA4A| 
OA4A| 
OAc | 
OA4E| 
0A52 | 
0A52 | 
0A52 | 
0A54 | 
0A56| 
0A56| 
0A58 | 
OA5A| 
OA5A| 
OASE | 
0A60 | 
0A60 | 
0A60 | 
0A60 | 
0A60 | 
0A60 | 
0A60 | 
0A64 | 
0A66 | 
0A66 | 
OA6A| 
OA6A| 
OA6A| 
OA6A| 
OA6A| 
OA6E| 
OA6E| 
OA6E| 
0A70| 
0A76| 
0A78 | 
OA7C| 
OA7C| 


4a01 
660A 
6100 
7201 
6136 
6492 


4A03 
6604 
08C7 


4004 


6714 


5344 
6710 


08C7 
600A 


08C7 
6004 


08C7 


21c9 


2007 
0280 
4A80 
6600 


0082 


0017 


0018 


0014 


000C 


0260 


0018 


0920 


3000 


; Reset exit - analyze results 


RSTXIT TST.B D1 
BNE.S @1 
BSR CLRRST 
MOVEQ #1,D1 
BSR.S GETDATA 
BCC.S RSTO 


@1 
.IF FINKBD = 1 
TST.B D3 
BNE .S MSCHK 
BSET #KBDOUT , D7 
MSCHK 
TST.B D4 
BEQ.S SCANXIT 
@1 SUBQ #1,D4 


BEQ.S SCANXIT 


BSET #MOUSOUT ,D7 
BRA.S SCANXIT 


. ELSE 
. ENDC 


;reset signal lifted? 
;skip if yes 

;else remove reset signal 
;set "removed flag" 

jany data? 

;go decode if yes 


;any keyboard data detected? 
;skip if yes - assume keybd connected 
;if none, keyboard is disconnected 


;any mouse data? 
;skip if none - mouse connected 


;flag = 1? 
;ignore if yes 


;else mouse disconnected 
;and go to exit 


; {FINKBD} 


; Error exits - set appropriate indicator 


SCANERR BSET #IOKBD ,D7 
BRA.S SCANXIT 


IOCERR BSET #IOCOPS ,D7 


. ELSE 
. ENDC 


SCANXIT MOVE.L A1,KBDQPTR 
.IF ROM4K = 0 


MOVE.L D7,D0 
ANDI.L #SCANMSK,DO 


TST.L DO 
BNE TSTCHK 
. ENDC 


71/0 or keyboard failure 


;I1/O COPS error 


; {ROM4K} 


;save queue ptr for later use 


;check error codes 
; for scan errors 
;any found? 
iskip if yes 


tex 
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OA7C| 
OATE | 
OATE | 
OATE | 
OATE | 
OATE | 
OATE | 
OATE | 
OATE | 
OATE | 
OATE | 
OATE | 
OATE | 
0A80 | 
0A82 | 
OA88 | 
OASE | 
0A92 | 
0A96 | 
0A98 | 
OAQA| 
OA9C | 
OAAO | 
OAA2 | 
OAA2 | 
OAAG | 
OAAS | 
OAAA | 
OAAA | 
OAAA | 
OAAA | 
OAAA | 
OAAA | 
OAAA | 
OAAA | 
OAAA | 
OAAA | 
OAAA | 
OAAA | 
OAAA | 
OABO | 
OAB4 | 
OABA | 
OACO | 
OAC2 | 
OAC4 | 
OAC4 | 


606A 


B5C9 
671A 
243C 
207C 
1028 
0800 
660A 
5342 
66F2 
003C 
4E75 


1028 
12C0 
4E75 


207C 
0890 
0028 
203C 
6120 
4E75 


0000 O1FF 
OOFC DD81 
001A 
0001 


0001 


0002 


OOFC DD81 
0000 

0001 0004 
0000 OBB8 


BRA.S BEEP ;else continue testing 


; Subroutine to get COPS data 
; Assumes registers: 


- DO - scratch use AO - VIA address 
; D1 - unused Al - Ptr to data save area 
; D2 - scratch use A2 - Ptr to end of data area 


; Puts data in save area and also leaves in register DO. 
; Carry bit set if timeout error or keyboard queue full. 


GETDATA CMPA.L A1,A2 ;check if at end of queue 
BEQ.S @2 ;exit if yes 
MOVE.L #S1FF,D2 ;else set timeout for about 5 ms 
MOVEA.L #VIA1BASE ,A0 ;set COPS VIA interface ptr 
@1 MOVE.B IFRI1(A0) ,DO ;Check if data avail 
BTST #1,D0 
BNE.S  GETIT ;skip if yes 
SUBQ #1,D2 
BNE.S @1 ;else continue 
@2 ORI.B #S01,CCR ;set timeout error 
RTS 
GETIT MOVE.B ORAI1(A0) ,DO ;read data 
MOVE.B_ DO, (Al) + ;save it 
RTS ;and exit with results 
. PAGE 


; Subroutine to do reset of keyboard and mouse interfaces 


; Inputs: 

; None 

; Outputs: 

; None 

; Side Effects: 

: DO/AO trashed 


RSTKBD MOVEA.L #VIA1BASE,A0 ;set VIA ptr 


BCLR #0 ,ORB1 (AO) ;set reset signal 
ORI.B  #$01,DDRB1(A0) ;send it 

MOVE.L #3000,D0 ;do delay for 12 ms 
BSR.S DELAY 

RTS 


tee 
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OAC4 | ; Subroutine to remove reset signal for keyboard and mouse interfaces 
OAC4 | ; Inputs: 

OAC4 | ; AO = ptr to parallel port VIA (set in RSTKBD routine) 

OAC4 | ; Outputs: 

OAC4 | s None 

OAC4 | ; Side Effects: 

OAC4 | 7 DO trashed 

OAC4 | FA na ala Um eu a rc oa 
OAC4 | 

OaACc4| O8DO 0000 CLRRST BSET #0 ,ORB1 (AO) ;remove reset signal 

OAC8| 6112 BSR.S KBDDELAY ;delay for keyboard reset time 

OACA| 4E75 RTS 

OACC | 

OACC | PRR SaaS SS Sea Sete See See see Se See See ae See Se ae a SSS ee See See a eee ae saa Ss sessee= 
OACC | ; Subroutine to delay for count in DO (each count = 4 us). Additional 
OACC | ; entry points set up for fixed delays. 

OACC | la aaa aa a a a a a tt le 
OACC | 

OACC | .IF ROM4K = 0 

OACC| 203C 0000 61A8 DELAY 1 MOVE.L #INTHSEC,DO ;.1 second delay 

OAD2| 600E BRA.S DELAY 

OAD4 | 

OAD4| 203C 0013 12D0 DELAY5 MOVE.L #FIVESEC,DO 75 second delay 

OADA| 6006 BRA.S DELAY 

OADC | 

OADC | KBDDELAY 

OADC| 203C 0006 7C28 MOVE.L #KBDDLY,DO ;delay for COPS debounce loop 

OAE2 | . ENDC 

OAE2 | 

OAE2| 5380 DELAY SUBQ.L #1,D0 ;loop until count = 0 

OAE4| 66FC BNE.S DELAY 

OAE6| 4E75 RTS 

OAES | 

OAES | . PAGE 

OAES | a aa a aaa a aaa aa aa an aa la a ee a 
OAES | ; Sound starting "tone" 

OAES | Fa a aa a aa re Ca oe 
OAES | 

OAES | BEEP 

OAE8| 6104 BSR.S CLICK ;go click speaker 

OAEA| 6000 O0AA BRA VIDTST ;then go do video test 

OAEE | 

OAEE | ee eae ee eee ee 
OAEE | ; Subroutine to set parms for speaker "click" 

OAEE | De Sara a Sie oa ie Pe ee a ee oe Se ee ee eee 
OAEE | 

OAEE| 103C O0AO CLICK MOVE.B #SA0,D0 ;set frequency 


tex 
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OAF2 | 
OAF4 | 
OAF6 | 
OAF6 | 
OAF6 | 
OAF6 | 
OAF6 | 
OAF6 | 
OAF6 | 
OAF6 | 
OAF6 | 
OAF6 | 
OAF6 | 
OAFA | 
OAFA | 
OAFE | 
0B00 | 
0B00 | 
0B04 | 
0B06 | 
0B06 | 
0B06 | 
0B06 | 
OBOC | 
0B12 | 
0B16 | 
0B18 | 
OB1E | 
0B24 | 
0B24 | 
0B24 | 
0B24 | 
0B2A | 
0B2C | 
0B34 | 
0B36| 
0B38 | 
0B3A| 
0B3C | 
0B3C | 
0B40| 
0B46| 
0B46| 
0B46| 
0B46| 
OB4A | 
OB4E | 


7200 
7408 


48E7 


4OFA 
6006 


4CDF 
4E75 


207C 
0028 
0210 
8510 
0228 
0028 


4039 
6A10 
0839 
6606 
1600 
E40B 
D003 


1140 
117¢C 


363C 
51CB 
51¢9 


1088 


0004 


1108 


OOFC 
000E 
OOF1 


00E3 
0010 


O0OFC 


0005 


0010 
OOOF 


00DO 
FFFE 
FFF6 


MOVEQ #0,D1 jand duration 
MOVEQ #8,D2 jand volume (medium) 
;then fall thru to tone routine 


; Routine to beep the speaker 
; Assumes regs set up as 


DO = desired frequency ($00 - SAA) 
: D1 = duration (0 = .5 msec) 
: D2 = volume (0,2,4,...,E) 


TONE MOVEM.L AO0/A4/D3,-(SP) ;save regs 
BSRS4 TONE2 ;go do tone 
# LEA @1,A4 
# BRA.S TONE2 
#@1 
MOVEM.L (SP)+,A0/A4/D3 ;restore and exit 
RTS 
7; separate entry point for call without memory usage 
DD81 TONE2 MOVEA.L #VIA1BASE,A0 ;set VIA ptr 
0004 ORI.B #S0E,DDRB1(A0) ;set volume bits for output 
ANDI.B #SF1,ORB1(A0) ;clear and then 
OR.B D2 ,ORB1 (AO) ; set volume bits 
0016 ANDI.B #SE3,ACR1(A0) ;clear shift mode bits 
0016 ORI.B #S$10,ACR1(A0) ;set shift reg for continuous rotate 
; check system type 
C031 TST.B DISKROM ;test for Lisa 1 board 
BPL.S @3 ;no changes if yes 
OOFC C031 BIST #SLOTMR ,DISKROM ;else check if slow timers 
BNE.S @3 ;skip if yes 
MOVE.B DO,D3 ;else adjust input parm 
LSR.B #2,D3 ; by factor of .25 
ADD .B D3 ,DO , 
@3 MOVE.B DO,T2CL1(A0) ;set frequency 
0014 MOVE.B #SOF,SHR1(A0) ;set for square wave and trigger 
; Do time delay - enter with count in D1 (about .5 msec per count) 
@1 MOVE.W #S00D0,D3 ;set delay constant 
@2 DBF D3 ,@2 
DBF D1,@1 


RMO00 
RMOO00 


CHGO014 
CHG014 
CHG029 
CHG029 
CHG014 
CHG014 
CHG014 


tex 
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OB52 | 

0B52| 0228 O0E3 0016 SILENCE ANDI.B #SE3,ACRI1(A0) ;disable tone 

0B58 | RTS4 jand return 

0B58| 4ED4 # JMP (A4) 

OB5A| 

OB5A| 

OB5A| .IF DIAGS = 1 

OB5A | ee ne 
OB5A | ; Routine to handle I/O board selection errors. Does check for access 

OB5A | : of other I/O board devices to try to pinpoint error. 

OBSA | poSsssesesse se S65 5553S 55455555 5555555555555 $ 5855558355555 S55 555555555 
OB5A| 

OB5A| O8C7 0010 NOIO BSET #RS232B ,D7 ;set SCC port B access error CHG027 
OB5E| 3E7C 0480 MOVE #STKBASE , SP ;restore stack pointer 

OB6E2 | ; try access of other I/O board devices 

OB62 | 

OB62| 47FA 0012 LEA NOIO2 ,A3 ;set up new bus error vector 

OB66| 21CB 0008 MOVE.L A3,BUSVCTR 

OB6A| 207C OOFC D901 MOVE.L #VIA2BASE,A0 ;set base address CHG027 
0B70| 4A10 TST.B (AO) ;try access 

0B72| 6000 FCOC BRA VIA2TST ;return to testing if OK CHG027 
0B76 | 

0B76| O08C7 000B NOIO2 BSET #VIA2 ,D7 ;set VIA #2 error also CHG027 
OB7A| 47FA 0012 LEA NOIO3 ,A3 ;try final access to VIA #1 CHG027 
OB7E| 21CB 0008 MOVE.L A3,BUSVCTR 

OB82| 207C OOFC DD81 MOVE.L #VIA1BASE,A0 ;set base address CHG027 
OB88| 4A10 TST.B (AO) 

OB8A| 6000 FC96 BRA.S SCRNTST jexit if OK CHG027 
OB8E | 

OB8E| O8C7 0001 NOIO3 BSET #CPUSEL ,D7 ;most likely CPU board error 

0B92 | 

OB92| 6000 0806 BRA TSTCHK ;goO report errors CHG027 
0B96 | 

0B96 | . ENDC 

0B96 | 

OB96| . INCLUDE RM248.S.TEXT 

0B96 | 

0B96 | . PAGE 

0B96 | fe ee ae ee ee er eee 
0B96 | ; VIDEO CIRCUITRY TEST 

0B96 | ; The following test checks the vertical retrace signal of the 

OB96 | ; video circuitry to verify it is toggling. 

0B96 | ; Register usage: 

0B96| H DO = timeout count AO = unused 

0B96| i; D1 = unused Al = unused 

0B96 | : D2 = bit pointer A2 = unused 

0B96| ; D3 = unused A3 = address to disable VTIR 


tex 
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0B96| 
0B96| 
0B96| 
0B96| 
0B96| 
0B96| 
0B96| 
0B96| 
0B96| 
OBA | 
OBIE | 
OBA2 | 
OBA2 | 
OBA2 | 
OBAS8 | 
OBAE | 
OBB4 | 
OBB4 | 
OBBS | 
OBBA | 
OBBA | 
OBBC | 
OBBE | 
OBCO | 
OBC2 | 
OBC6 | 
OBC8 | 
OBC8 | 
OBCA | 
OBCC | 
OBCE | 
OBDO | 
OBD2 | 
OBD4 | 
OBD4 | 
OBD4 | 
OBD4 | 
OBDS8 | 
OBDA| 
OBDC | 
OBEO | 
OBEO | 
OBEO | 
OBEO | 
OBEO | 
OBEO | 
OBEO | 


6100 25E8 
327C 1DF6 
6100 29D4 


267C OOFC E018 
287C OOFC EO1A 
2A7C OOFC F801 


303C ODF4 
7402 


4053 
4a54 
0515 
6706 
51C8 FFFA 
600C 


4053 
4a54 
0515 
6704 
4053 
600C 


08C7 0002 
4287 
6BC6 
6000 07BC 


- D4 = unused A4 = address to enable VTIR 
, D5 = unused A5 = address of bus status register 
VIDTST 
IF ROM4K = 0 
.IF USERINT = 1 
BSR MAKETEST ;display test icons 
MOVEA #CPUSTRT,A1 ;hilite CPU board icon 
BSR INVICON 
. ENDC 
VIDCHK 
MOVEA.L #VTIRDIS ,A3 ; ADDRESS FOR DISABLING VTIR 
MOVEA.L #VTIRENB ,A4 ; ADDRESS FOR VTIR ENABLE 
MOVEA.L #STATREG,A5 ;STATUS REGISTER LOCATION FOR BYTE OPS 
MOVE #SODF4 ,DO ;SET TIMEOUT COUNT FOR ABOUT 20 MS 
MOVEQ #VRBIT , D2 ;VR BIT LOCATION 
TST (A3) ;RESET THEN 
TST (A4) ; ENABLE VTIR 
@1 BTST D2, (A5) ;WAIT FOR LOW 
BEQ.S @2 ;EXIT IF YES 
DBF DO,@1 ;ELSE LOOP (ABOUT 5.6 MS PER LOOP) 
BRA.S VIDERR ;AND SET ERROR IF TIMEOUT 
@2 TST (A3) ;RESET VTIR 
TST (A4) ;THEN RENABLE 
BTST D2, (A5) ;SHOULD BE HIGH BY NOW 
BEQ.S VIDERR ;GO TO ERROR EXIT IF NOT 
TST (A3) ;DISABLE VTIR 
BRA.S  VIDXIT ;and go to exit 


; Error exit 


VIDERR BSET #VID ,D7 ;SET ERROR INDICATOR 
TST.L D7 ;in loop mode? 
BMI.S VIDCHK ;restart test if yes 
BRA TSTCHK ;else go to error msg routine 


; Normal exit 


VIDXIT 


; Now, try reading of system serial number 


tex 
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OBEO | Fa ea a Sasa ae aS S ee Soa eaS ae eseaa= 
OBEO | 

OBEO| 307C 0240 MOVEA #SERNUM,AO ;ptr for save of serial # 

OBE4| 6110 BSR.S RDSERN ;go do read 

OBE6| 64EC BCC.S VIDERR ;exit if error 

OBE8| 4A79 OOFC E018 TST VTIRDIS ;else disable vertical retrace 

OBEE| 4A87 TST.L D7 ;check for loop mode 

OBFO| 6BBO BMI.S VIDCHK ;if not, fall thru to next test 

OBF2| 6000 0168 BRA PARTST ;and go on to next test 

OBF6 | 

OBF6 | . PAGE 

OBF6 | fig ies See A TR Ea ee ET RE EO RPE 
OBF6 | ; 

OBF6 | ; Routine to read system serial # from video prom. 

OBF6 | ; Written by Ken Schmal and Ron Hochsprung. 

OBF6 | ; 

OBF6 | 4 Register Usage: 

OBF6 | ; 

OBF6 | s temporary and iterative DO 

OBF6 | . temporary and iterative D1 

OBF6 | 4 temporary and iterative D2 

OBF6 | iH temporary and iterative D3 

OBF6 | : boolean FOUND to be returned D4 

OBF6 | : pointer to save area for serial # AO 

OBF6 | ' SN1 & SN2 pointer Al 

OBF6 | ; STATUS REGISTER pointer A2 

OBF6 | ; SCRACH array pointer A3 

OBF6 | ; SCRACH END pointer a4 

OBF6 | 4 Tag const A5 

OBF6 | ; static link and stack frame 

OBF6 | y base pointer register A6 

OBF6 | ; 

OBF6 | ; Returns with carry bit set if all OK. 

OBF6 | ; All registers except D7 and AO trashed. 

OBF6 | ; 

OBF6 | fig ge oe SI ee PO eS AE Se a Oe ee 
OBF6 | 

OBF6 | RDSERN 

OBF6 | 

OBF6| 48E7 0180 MOVEM..L D7/A0 ,- (SP) ;save regs 

OBFA | 

OBFA | 7 turn off all interrupts 

OBFA| 40E7 move SR, - (sp) ;save the present status register 
OBFC| 007C 0700 ori.w #50700, SR ;set interrupt to level 7 
0cOo0 | 

0cOo0 | Hg ET ORT Oe OG SS Ee eT Be 
0coo | ; now set up registers for the algorithm 


tex 
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0c00 | 
0c00 | 
0c00 | 
0C06 | 
ococ | 
0C10| 
0C14| 
0c18 | 
oc1c| 
oc1c| 
oc1c| 
oc1c| 
oc1c| 
oc1c| 
Oc1c| 
oc1c| 
oc1c| 
oc1c| 
oc1c| 
OC1E| 
0c26| 
0c2c | 
0c32 | 
0c34 | 
0C36| 
0C36| 
0C36| 
0C36| 
0C36| 
0C36| 
0c3A| 
0C3E| 
0c40| 
0c42 | 
0c44| 
0c46| 
0C4a| 
OC4E | 
0c50| 
0c50| 
0c50| 
0C50| 
0C50| 
0C50| 
0c50| 
0C50| 
0c50| 


227C 
247C 
4E56 
4TEE 
4OFA 
2D48 


7202 
2D7C 
4279 
4279 
0312 
66FC 


4cgl1 
4893 
508B 
508B 
4E71 
7008 
53AE 
5FC8 
6EE6 


OOFE 
OOFC 
FF18 
FF18 
0142 
FFF8 


0000 
OOFC 
OOFC 


OOFF 
OOFF 


FFFC 
FFFE 


tex 


8000 move .1 #Snum, al j;location in MMU of SN1 & SN2 
F801 move .1 #Statreg,a2 ;Status Register pointer 
link a6, #dStack ;make room for SCRACH 
lea dScrach (a6), a3 ;get pointer for SCRACH 
lea Tag,a4 
move .1 a0 ,dSavArry (a6) 
; first we get the block out of the vertical half 
7 sync up to the vertical retrace bit 
GetBits1: 
moveq #2, dl jvertical retrace is bit #2 
0007 FFFC move .1 #BytesPerRead,dLcnt(a6) ;read this many bytes 
E018 clr VTIRDIS ;clear vertical retrace bit 
E01A clr VTIRENB ;set vertical retrace interrupt 
@1: btst dl, (a2) ;wait until it's true 
bne.s @1 
peSsS-= read the first block ------ 
@3: movem (al) , d0-d7 
movem d0-d7, (a3) 
addq.1 #8, a3 
addq.1 #8, a3 
nop 
moveq #dlycnst-1, dO 
subq.1 #1, dLcnt (a6) 
@4: dble do, @4 
bgt.s @3 
4 then we get the block out of the horizontal half 
; kill time until we're near the last vertical retrace line 
GetBits2: 
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0C50| 
0C58 | 
OC5C | 
0C60 | 
0C60 | 
0C60 | 
0C60 | 
0C60 | 
0C60 | 
0C64 | 
0C68 | 
OC6A | 
OCEC | 
OC6E | 
0C70| 
0C74 | 
0C78 | 
OC7A| 
OC7A| 
OC7A| 
OC7A| 
OC7A| 
OC7A| 
0c80| 
0C82 | 
0C82 | 
0C82 | 
0C86 | 
0C88 | 
OC8C | 
OC8C | 
OC8C | 
OC8C | 
0Cc90| 
0C92 | 
0c94| 
0c94 | 
0c94 | 
0c94 | 
0C98 | 
0C98 | 
0C98 | 
O0C9C | 
OCAO | 
OCA2 | 
OCA6 | 
OCA6 | 


2D7C 
303C 
51C8 


4cg1 
4893 
508B 
508B 
4E71 
7008 
53AE 
5FC8 
6EE6 


4279 
7801 


4TEE 
284B 
D8FC 


6100 
4n44 
6764 


6100 


4TEE 
D6FC 
284B 
D8FC 


6100 


0000 0007 FFFC 
00AB 
FFFE 


OOFF 


OOFC E018 


FF18 


0070 


007C 


009E 


FF18 


0070 


0070 


0062 


@3: 


move .1 
move .w 
dbra 


read the second 


tex 


#BytesPerRead, dLcnt (a6) ;get the last few bytes 
;time killer constant 


#TKiller-1, dO 
do, @1 


or last block 


(al) , dO-d7 
d0-d7, (a3) 
#8, a3 
#8, a3 


#dlycnst-1, dO 
#1, dLcnt (a6) 
do, @3 

@2 


dScrach (a6), a3 


a3, a4 
#HalfSize, a4 


find the first sync byte 


bsr 
tst.w 
beq.s 


FindSync 
d4 
Exit 


; Loop 


;turn off vertical retrace 
;initialize FOUND to true 


;pointer 


;pointer 


pexit if 


now pull out the first block from the bit stream 


bsr 


GetNibbles 


here we look for the second sync byte. 


lea 
adda 
move .1 
adda 


bsr 


dScrach (a6), a3 


#HalfSize, a3 
a3,a4 
#HalfSize,a4 


FindSync 


;pointer 


;pointer 


to 


to 


no 


to 


to 


1/2 Scrach Array pointer 

end of 1/2 Scrach Array RM000 
sync byte found 

2/2 Scrach Array pointer RM000 
end of 2/2 Scrach Array RM000 
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OCAA| 4A44 tst.w d4 

OCAE | 4 beq.s Exit jagain, exit if no sync byte found 
OCAE | ; now pull out second block from the bit stream 

OCAE | ; 

OCAE| 6100 0084 bsr GetNibbles 

OCB2 | 

OCB2 | PRS se a aaa a a a 5 a SSS SS Sas 
OCB2 | - Check the checksum of the read data 

OCB2 | PR ee See ee ee eee sae 
OCB2 | 

OCB2 | CheckSum: 

OCB2| 206E FFF8 move .1 dSavArry (a6) ,a0 

OCB6| 4240 clr.w do 

OCB8 | 

OCB8| 1028 0018 move .b 24 (a0) ,dO 

OCBC| 343C 0064 move .w #100 ,d2 

occo| coc2 mulu d2,d0 

0CC2 | 

occ2| 1228 0019 move .b 25 (a0) ,dl 

0cc6é| 343C 000A move .w #10 ,d2 

OCCA| C2C2 mulu d2,d1 

occc| D041 add.w di ,do 

OCCE | 

OCCE| 1228 001A move .b 26 (a0) ,dl 

OcD2| D041 add.w di ,do 

OCD4 | 

ocD4| 4241 clr.w di 

OCD6| 4242 clr.w d2 

OCD8| 4243 clr.w d3 

OCDA| 1630 1000 @2: move .b 0(a0,d1) ,d3 

OCDE| D443 add.w d3 ,d2 

OCEO| 5241 addq.w #1,d1 

OCE2| 0C41 0018 cmpi.w #24,d1 

OCE6| 66F2 bne.s @2 

OCES8 | 

OCE8| 1628 001B move .b 27(a0), d3 

OCEC| D443 add.w d3 ,d2 

OCEE| 0442 003C subi.w #4 * SF, d2 

OCF2| B440 cmp .w do ,d2 

OCF4| 6702 beq.s @3 

OCF6| 4244 clr.w d4 

OCF8 | @3: 

OCF8 | Pe ae a ee ee aS a eae ae eae Sa eae ere so se 
OCF8 | ; job well done, lets go home 

OCF8 | aaa a aa a ee ral 
OCF8 | 

OCF8 | Exit: 


tey 
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OcF8 | 
OCFA | 
OCFC| 
0D00 | 
0D06 | 
0D08 | 
ODOA| 
ODOA| 
ODOA| 
ODOA| 
ODOA| 
ODOA| 
ODOA| 
ODOA| 
opoc | 
ODOE | 
0D10 | 
0D12 | 
0D14| 
0D16| 
0D18 | 
OD1E| 
0D20 | 
0D22 | 
0D26 | 
0D28 | 
0D2A | 
oD2¢c | 
OD2E | 
0D30 | 
0D30 | 
0D32 | 
0D34 | 
0D34 | 
0D34 | 
0D34 | 
0D34 | 
0D34 | 
0D36 | 
0D38 | 
0D3A| 
0D3C | 
OD3E | 
0D40| 
0D42 | 
0D48 | 
OD4A | 


4E5E 
46DF 
4CDF 
4279 
E24C 
4E75 


4280 
7202 
341B 
E34A 
E310 
B9CB 
660A 
D7FC 
5341 
670E 
0c00 
66E6 
E948 
E808 
30C0 
4E75 


4244 
4E75 


7406 
7208 
4280 
E3DB 
E310 
B9CB 
6606 
D7EFC 
5341 
66EE 


0180 
OOFC E01A 


FFFF FF90 


OOFF 


FFFF FF90 


tex 


unlk aé 

move (sp)+, SR ;restore status reg 

MOVEM.L (SP) +,D7/A0 ;and regs 

clr VTIRENB ;re-enable interrupts 

LSR #1,D4 ;shift to set/reset error indicator 
@1 RTS ; and exit 

. PAGE 


FindSync 
clr.1 do 
moveq #2, dl ;two passes to find the sync byte 
@1 move .w (a3)+, d2 : 
1lsl.w #1, d2 7 
roxl.b #1, dO i;get SN1 
cmpa.1 a3, a4 yassure the buffer's circular 
bne.s @2 ; 
adda.1 #-HalfSize, a3 ;if it's at the end then 
subq #1, dl ; check if it's the second try 
beq.s @3 ; and exit if so 
@2: cmpi.b #SOf£, dO ;test here if it's a sync byte 
bne.s @1 7no: loop again 
1lsl.w #4, do yes: adjust the byte 
1lsr.b #4, dO : 
move .w do, (a0)+ ;save it 
rts ;and return 
@3 clr.w d4 ;uh, oh. No sync byte. 
rts ;clear FOUND and return 


GetNibbles: 
moveq #BytesPerRead-1, d2 

@1: moveq #8, dl 78 bits/byte 
clr.1 do ; 

@2: isl (a3) + ;get SN1 in the next scrach word 
roxl.b #1, do ;shift it into the save buffer 
cmpa.1 a3, a4 ;assure a circular bufer 
bne.s @3 ; 
adda.1 #-HalfSize, a3 . 

@3 subq #1, dl ;decrement bit/byte counter 
bne.s @2 ;loop again if still in byte 
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op4c| 
OD4E | 
0D50| 
0D52 | 
0D54| 
0D56| 
0D58 | 
0D58 | 
OD5C | 
OD5C| 
OD5C| 
OD5C| 
OD5C| 
OD5C| 
OD5C| 
OD5C| 
OD5C| 
OD5C| 
OD5C| 
OD5C| 
OD5C| 
OD5C | 
OD5C| 
OD5C| 
OD5C| 
OD5C| 
OD5C| 
OD5C| 
OD5C| 
OD5C| 
0D60 | 
0D64 | 
0Dé68 | 
OD6E| 
0D74 | 
0D76| 
0D78 | 
oD7¢ | 
0D80 | 
0D82 | 
0D84 | 
ps8 | 
0Ds8 | 
OD8E | 
0D90 | 
0D96| 
0D96| 


E948 
E808 
30C0 
5342 
66E0 
4E75 


4B41 


2478 
STFA 
21CB 
2A7C 
4039 
4282 
4284 
303C 
307C 
3610 
2248 
D3F8 


4039 
3080 
4039 


4039 


5300 


007C 
0092 
007C 
OOFC 
OOFC 


O1FF 


0300 


02A4 


OOFC 


OOFC 


OOFC 


F801 
E01C 


E006 


E004 


E01E 


1lsl.w #4, dO 
lsr.b #4, do 
move do, (a0)+ 
subq #1, d2 
bne.s @1 
rts 

Tag .word $4b41 ,$5300 


; PARITY CIRCUITRY TEST 
; The purpose of this test is to verify the operation of the parity checking 
7; logic by forcing a parity error and ensuring it is caught. 

; Register usage: 


AO 


RREGBRE 


;separate the nibbles 

;save these nibbles 

;decrement byte/SN counter 
jloop again if still more to go 


logical address used for test 
corresponding physical address 
save for NMI vector 

scratch 

unused 

address of bus status register 
unused 


;SAVE STANDARD NMI VECTOR 


WWPERR , A3 ;THEN SET UP NEW PARITY ERROR (NMI) VECTOR 


4 DO = pattern written 
; D1 = read results 
- D2 = NMI indicator 
7 D3 = save of memory contents 
7 D4 = save of error addr latch 
7 D5 = unused 
: D6 = unused 
PARTST 
. ENDC 
.IF ROM16K = 1 
MOVE.L NMIVCT,A2 
LEA 
MOVE.L A3,NMIVCT 


MOVEA.L #STATREG,A5 
TST.B  PAROFF 


;setup status reg ptr for byte ops 
;disable parity initially 


CLR.L D2 ;clear regs for result use 
CLR.L D4 
MOVE #S01FF,D0O ;SET UP PATTERN FOR WRITE 


MOVEA #$300,A0 


MOVEA.L AO,Al1 


TST.B DG20N 
TST.B DG20FF 


TST.B PARON 


;SET UP ADDRESS FOR USE (in already verified mem) 


(AO) ,D3 ;SAVE ITS CONTENTS 


;COMPUTE CORRESPONDING 


L MINMEM,A1 ; PHYSICAL ADDRESS 


;ENABLE WRITE WRONG PARITY FUNCTION 


DO, (AO) 7DO WRITE TO CREATE BAD PARITY 


;DISABLE WWP 


7ENABLE PARITY ERROR DETECTION 


tex 


RMOO00 
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op9c | 
OD9E| 
ODAO | 
ODAO | 
ODA2 | 
ODA4 | 
ODAG | 
ODA8 | 
ODA8 | 
ODAC | 
ODAE | 
ODB4 | 
ODBA | 
ODBC | 
ODBE | 
0DCO | 
0Dc4 | 
ODC6 | 
ODC8 | 
ODCA | 
ODDO | 
ODD2 | 
ODD2 | 
ODD2 | 
ODD6 | 
ODD8 | 
ODDA | 
ODEO | 
ODE4 | 
ODES | 
ODES | 
ODES | 
ODES | 
ODEA | 
ODEE | 
ODF2 | 
ODF4 | 
ODF4 | 
ODF4 | 
ODF4 | 
ODF6 | 
ODF8 | 
ODF8 | 
ODF8 | 
ODF8 | 
ODF8 | 
ODF8 | 


4242 
6632 


3210 
4E71 
4242 
672A 


0815 
6624 
3839 
4039 
EB8C 
B3C4 
6612 
21CA 
4240 
4640 
3080 
4039 
6016 


08C7 
4287 
6B82 
4039 
21CA 
6000 


4287 
6B00 
6100 
600E 


7401 
4E73 


7032 


0001 


OOFC 
OOFC 


007C 


OOFC 


0003 


OOFC 


007C 
O5B4 


FF70 
27C6 


F000 
E01C 


E01E 


E01C 


TST D2 ;SHOULDN'T HAVE INTERRUPT YET 
BNE.S PARERR ;EXIT IF ERROR 
MOVE (AO) ,D1 7DO READ - PARITY ERROR SHOULD OCCUR 
NOP ;GIVE A LITTLE EXTRA TIME 
TST D2 ;NMI RECEIVED? 
BEQ.S PARERR ;ERROR IF NO 
; Check that parity error and failing address correctly caught 
BTST #PBIT, (A5) ;PARITY ERROR BIT SET? 
BNE.S PARERR ;EXIT IF NOT 
MOVE MEALTCH ,D4 ;GET ERROR ADDRESS 
TST.B  PAROFF ;disable parity to clear error bit 
LSL.L #5,D4 ;NORMALIZE THE ADDRESS 
CMPA.L D4,A1 ;SAME ADDRESS AS WRITTEN TO? 
BNE.S PARERR ;EXIT IF ERROR 
MOVE.L A2,NMIVCT ;ELSE RESTORE NMI VECTOR 
CLR DO 
NOT DO 
MOVE DO, (AO) ;"clear" bad parity 
TST.B PARON ;reenable parity 
BRA.S PARXIT ;and skip to exit 
; Error exit 
PARERR BSET #PAR,D7 ;SET INDICATOR 
TST.L D7 ;in loop mode? 
BMI.S PARTST ;restart if yes 
TST.B  PAROFF ;else ensure parity disabled 
MOVE.L A2,NMIVCT ;RESTORE NMI VECTOR 
BRA TSTCHK ;AND ABORT FURTHER TESTING 


; Normal exit 


PARXIT TST.L D7 ;check for loop mode 
BMI.S PARTST ;restart test if yes 
BSR CHKCPU ;place check over CPU (all tests OK) 
BRA.S MEMTST2 ;else go do memory test 


; NMI routine for parity error checking 


WWPERR MOVEQ #1,D2 ;SET INDICATOR 
RTE ;AND RETURN 


VIA1VCT MOVEQ #EVIA1 ,DO ;SET ERROR CODE 


tex 
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tex 


ODFA| O08C7 OO0A BSET #VIA1 ,D7 ;set indicator 

ODFE| 6000 FB18 BRA rovctT ;AND GO HANDLE I/O EXCEPTION 

0E02 | 

0E02 | . ENDC ; (ROM16K) 

0E02 | . PAGE 

0E02 | ae eee oe ee Reo ae eo ea a ee ee ee ee ee ee ee 

OEO2 | ; Now do full memory test with and without parity enabled. If parameter 

0OE02 | ; Memory bit set for extended memory testing, memory tests executed in 

OE02 | ; twice. If warm-start, execute only one pass with parity enabled. 

OEO2 | ; Uses registers: 

OE02 | ; AO = starting address to test DO = used to consolidate test results 

OE02 | : Al = ending address to test D1 = scratch 

OE02 | 7 A2 = unused D2 = address increment 

OE02 | 7 A3 = save address for results D3 = test results for each 128K 

OE02 | - A4 = return address D4 = max test address 

OEO2 | : A5 = unused D5 = pass count 

0E02 | Pg Sa IE oe ES eT Ea nS 

0E02 | 

0E02 | MEMTST2 

0E02 | .IF ROM4K = 0 

0E02 | 

OE02 | .IF USERINT = 1 

OE02| 327C 1E04 MOVEA #MEMSTRT,A1 ;hilite memory board test icon 

OE06| 6100 276C BSR INVICON 

OEOA | . ENDC 

OEOA | 

OEOA| 6100 F8D6 BSR SETBUSVCT ;xrestore normal bus error vector RM000 

OEOE | MEMLOOP 

OEOE| 43FA 0104 LEA PRTYINT1 ,A1 ;setup up vector for parity intrpt CHG015 
0E12| 21C9 007C MOVE.L A1,NMIVCT 7 CHG015 
0E16 | 

0E16 | .IF ROM16K = 1 

0E16 | ; First check if this is a warm-start CHGO06 
0E16 | 

0E16| 0807 001E BTST #WRMSTRT , D7 ;warm-start? CHG006 
OE1A| 6704 BEQ.S @0 ;skip if not CHGO15 
OE1C| 7A01 MOVEQ #1,D5 7;else set count for one pass CHGO15 
OE1E| 6020 BRA.S @3 ;skip to do it CHG015 
0E20 | 

0E20 | ; Next check parameter memory to see if extended testing desired 

0E20 | 

0E20| 6100 0A14 @0 BSR CHKPM ;go check parameter memory 

0E24| 650E BCS.S @1 ;skip if not valid to do only one pass 

OE26| 0839 0006 OOFC C18D BIST #6 ,MEMCODE ;else check extended memory test indicator 

OE2E| 6704 BEQ.S @1 ;exit if not set 

0E30 | 

OE30| 7A02 MOVEQ #2,D5 ;run two passes for extended mode CHGO15 
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0E32 | 
0E34 | 
0E36| 
0E36| 
0E36| 
0E36| 
0E3C| 
OE3E | 
0E40| 
0E46| 
0E48 | 
OE4A | 
OE4C| 
OE4E | 
OE4E | 
0E50| 
0E52 | 
0E56| 
OE5A| 
OES5E| 
0E62 | 
0E66| 
OE6A| 
OE6A| 
OE6A| 
OE6A| 
OE6A| 
OE6A| 
OE6A| 
OE6A| 
OE6A| 
OE6A| 
OE6A| 
OE6A| 
OE6A| 
OE6C| 
OE6C| 
OE6C| 
0E70| 
0E74| 
0E74| 
0E76| 
OE7A| 
OE7C| 
OETE| 
0E82 | 
0E84 | 


6002 
7AO1 


4039 
612C 
660E 
4039 
6122 
6604 
5345 
66E8 


4287 
6BBC 
0807 
6600 
6100 
47FA 
21CB 
6000 


6118 


4OFA 
6000 


6704 
08C7 
611C 
66EE 
0807 
4E75 


OOFC EO01C 


OOFC E01E 


0015 
0542 
2762 
F8A4 
007C 
0198 


0006 
003E 


0015 


0015 


BRA.S 


@1 MOVEQ 


@2 
#1,D5 


; Run the memory tests 


@2 


@3 


TSTDONE 


TST.B 
BSR.S 
BNE.S 
TST.B 
BSR.S 
BNE.S 
SUBQ 

BNE.S 


PAROFF 
RUNTESTS 
TSTDONE 
PARON 
RUNTESTS 
TSTDONE 
#1,D5 

@2 


;go do it 
;run one pass for normal mode 


;first run with parity off 
;run test pass 

;skip if error 

;then run pass with parity on 
;run test pass 

;exit if error 

;decr pass count 

;continue testing until done 


jin loop mode? 
;restart if yes 
;memory error? 

jabort if yes 

7;else signal memory OK 
;restore NMI vector 


7go on to next test 


; Subroutine to run the memory tests - saves results as test proceeds 


; Zero condition code bit set if no errors. 


, 


RUNTESTS 


; Do the basic test 


BASICTST 
BSR.S 
CALL3 


BSR4 


TSTINIT 


RAMTEST 
@1,A4 
RAMTEST 


@1 
#MEM,D7 
SAVRSLT 
CALL3 
#MEM , D7 


;init for new test 


;skip if no errors 

;else set error indicator 
;save results 

;loop until done 

;set condition code 

;and exit 


CHGO15 
CHGO15 


CHGO15 
CHGO15 
CHGO15 
CHGO15 
CHGO15 
CHGO15 
CHGO15 
CHGO15 


CHGO15 
CHGO15 


CHG021 
CHGO15 


tex 
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0E84 | 
0E84 | 
0E84 | 
0E84 | 
0E84 | 
0E84 | 
0E84 | 
0E84 | 
0E84 | 
0E86| 
0E88 | 
OE8C| 
0E90| 
0E92 | 
0E96| 
0E98 | 
0E98 | 
0E98 | 
0E98 | 
0E98 | 
0E98 | 
OE9A| 
OE9C| 
OEQE | 
OEAO | 
OEA2 | 
OEA4 | 
OEA6 | 
OEAS8 | 
OEAA | 
OFAC | 
OEAE | 
OEBO | 
0EBO | 
OEBO | 
OEBO | 
OEBO | 
OEBO | 
OEBO | 
OEBO | 
0EBO | 
OEBO | 
OEBO | 
OEBO | 
OEBO | 
OEBO | 
OEBO | 


7402 
4842 
2838 
307C 
2242 
367C 
4E75 


3003 
4843 
8640 
875B 
B889 
670A 
2049 
D3C2 
B889 
6C02 
2244 
4E75 


0110 
0800 


0186 


ees 
; {ROM16K} 


MOVEQ #2,D2 ;test in 128K increments RMOO00 
SWAP D2 ; (sets D2 = $20000) RMO000 
MOVE.L SCRNBASE,D4 ;get max test address (base of screen) 

MOVEA #LOMEM,AO ;set initial start 

MOVE.L D2,A1 ; and ending address 

MOVEA #MEMRSLT , A3 ;set address of result area RMO000 
RTS 


, 


; Subroutine 


, 


SAVRSLT MOVE D3 ,DO ;get low results 
SWAP D3 ;get high results 
OR DO ,D3 ; combine 
OR D3, (A3) + ; and save 
CMP.L A1,D4 ;at max test address? 
BEQ.S @1 ;exit if yes 
MOVEA.L A1,A0 ;else set new addresses 
ADDA.L D2,Al1 ; to check next row of memory 
CMP.L A1,D4 ;in last segment? 
BGE.S @1 
MOVE.L D4,Al1 ;set at base of video page 
@1 RTS 
. PAGE 


; BASIC MEMORY TEST - writes pattern and its complement in memory location, 


then verifies by reading. Also does second scan as 
addressing check. Uses long word operations for speed. 


; Inputs: 

; AO - Starting address to test 
; Al - Ending address 

; A4 - Return address 

; Outputs: 

p CCR zero bit set if no error 
7 D3 = OR mask of errors 


; Uses registers: 


: AO = 


current test address DO = current test pattern 
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OEBO | 
OEBO | 
OEBO | 
OEBO | 
OEBO | 
OEBO | 
OEBO | 
OEBO | 
OEBO | 
OEB2 | 
OEB8 | 
OEBA | 
OEBC | 
0ECO | 
0ECO | 
OEC2 | 
0EC4 | 
OEC6 | 
OEC6 | 
OECA| 
OECC| 
OECC| 
OECC| 
OECE| 
OEDO | 
OED2 | 
OED4 | 
OED6 | 
OED6 | 
OEDA| 
OEDC | 
OEDC | 
OEDE | 
OEDE | 
OEEO | 
OEE2 | 
OEE4 | 
OEE6 | 
OEE6 | 
OEE6 | 
OEEC | 
OEEE | 
OEFO | 
OEF2 | 
OEF6 | 
OEF6 | 
OEF8 | 


2A48 
203C 
4680 
7600 
007C 


2080 
BO90 
6706 


4DFA 
6040 


4680 
2080 
BO098 
670A 
5988 


4DFA 
6030 


5888 


E390 
4680 
B3C8 
66DA 


203C 
204D 
7200 
4681 
007C 


BO90 
6706 


AA55 A55A 


0010 


0004 


0004 


AA55 A55A 


0010 


; Al = ending test address D1 = scratch 
; A2 = unused D2 = unused 
; A3 = unused D3 = OR mask of errors 
3 A4 = return address D4 = unused 
iY A5 = saved start address D5 = unused 
; A6 = used for return address D6 = unused 
RAMTEST MOVE.L AO,A5 ;save start address 
MOVE.L #PATRN,DO ;get pattern 
NOT.L DO ;use complement first 
MOVEQ #0 ,D3 ;clear for result use 
ORI #$0010,SR ;set extend bit for use with pattern rotate 
RAMRW MOVE.L_ DO, (AO) ;do write 
CMP.L (AO) ,DO ;verify 
BEQ.S RAMCHK2 ;skip if OK 
BSRS6 RDERR ;else save error bits 
# LEA @1,A6 
# BRA.S RDERR 
#@1 
RAMCHK2 NOT.L DO ;now use inverse 
MOVE.L DO, (AO) ;write to check for stuck bits 
CMP.L (AO) +,D0 ;verify and bump address 
BEQ.S RAMNXT ;skip if OK 
SUBQ.L #4,A0 ;else get error address 
BSRS6 RDERR ;gO save error bits 
# LEA @1,A6 
# BRA.S RDERR 
#@1 
ADDQ.L #4,A0 ;and restore next test address 
RAMNXT ROXL.L #1,D0 ;create new pattern 
NOT.L DO ;invert for test 
CMPA.L AO,Al1 ; done? 
BNE.S RAMRW ;loop if not 
; Now do address check - writes memory as all F's during scan 
ADRTST MOVE.L #PATRN,DO ;reinitialize 
MOVE.L A5,A0 ;get start address 
MOVEQ #0,D1 
NOT.L D1 ;£final pattern for write 
ORI #50010,SR ;set extend 
ADRCHK CMP.L (AO) ,DO ;check contents 
BEQ.S §ADRCLR ;skip if OK 


tex 
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OEFA | 
OEFA | 
OEFE | 
OFOO| 
OF0O| 
OF02 | 
OF04 | 
OF06| 
OF08 | 
OF08 | 
OF08 | 
OF08 | 
OFOA| 
OFOA| 
OFOC| 
OFOC| 
OFOC| 
OFOC| 
OFOE | 
OF10| 
OF12 | 
OF12 | 
OF14| 
OF14| 
OF14| 
OF14| 
OF14| 
OF14| 
OF14| 
OF14| 
OF14| 
OF14| 
OF14| 
OF14| 
OF14| 
OF14| 
OF14| 
OF14| 
OF14| 
OF16| 
OF1A| 
OF1E| 
OF22 | 
OF26| 
OF2A| 
OF2E | 
OF32 | 


4DFA 0004 


600C 


20C1 
E390 
B3C8 
66EE 


4283 


4ED4 


2210 
B181 
8681 


4ED6 


6152 
6600 
08C7 
21C0 
21C8 
2638 
6100 
0801 
6604 


F7EC 
0016 
026C 
0268 
02A4 
00c4 
0005 


BSRS6 RDERR ;else save errors 
# LEA @1,A6 
# BRA.S RDERR 
#@1 
ADRCLR MOVE.L D1, (AO)+ ;'clear' and go to next location 
ROXL.L #1,D0 ;create next pattern 
CMPA.L AO,A1 ;done? 
BNE.S §ADRCHK jloop if not 


; Check results 
TST.L D3 ;set condition codes 
RTS4 
# JMP (A4) 


; Failure routine - save results and continue testing 


RDERR MOVE.L (AO) ,D1 ;do read again 
EOR.L DO,D1 ;isolate bad bits 
OR.L D1,D3 ;save result 
RTS6 ;and return 
# JMP (A6) 
. PAGE 


; Phase 1 Parity error handler for memory tests. Objective for handler is to 
; isolate parity error to chip level. 

; Assumes: 

i: DO = expected data pattern 

H AO = error address or address + 4 

; Uses registers: 


; D1 = parity error address 

2 D2 = search size for byte in error 

. D3 = low memory address 

; Al = search address 

PRTYINT1 
BSR.S TSTSTAT ;check if parity error CHGO15 
BNE NMI iskip if not CHGO15 
BSET #MPAR ,D7 ;set error indicator CHGO15 
MOVE.L DO,XPCTDATA ;save data and address CHG0O15 
MOVE.L A0Q,XPCTADDR : CHGO15 
MOVE.L MINMEM,D3 ;get low memory address CHGO15 
BSR GETPADDR ;read and convert parity address CHGO15 
BTST #5,D1 ;main mem error? CHGO15 
BNE.S @1 ;skip if not CHGO015 


tex 
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OF34| 
OF34| 
OF36| 
0F38 | 
OF3C| 
OF42 | 
OF46| 
OF46| 
OF46| 
OF46| 
OF4A| 
OF4E | 
OF50| 
OF52 | 
OF58 | 
OFSE| 
OF60 | 
OF60| 
OF62 | 
OF66| 
OF66| 
OF66| 
OF68 | 
OF68 | 
OF68 | 
OF68 | 
OF68 | 
OF68 | 
OF70| 
OF72 | 
OF72 | 
OF72 | 
OF72 | 
OF72 | 
OF72 | 
OF72 | 
OF72 | 
OF72 | 
OF72 | 
OF72 | 
OF72 | 
OF72 | 
OF72 | 
OF74| 
OF78 | 
OFT7C| 
OF80| 


743F 
600A 
343C 
0281 
21c1 


43FA 
21c9 
9283 
2241 
4039 
4039 
4284 


1819 
51CA 


605E 


0839 
4E75 


61F4 
6600 
6100 
21c1 
93FC 


MOVEQ #MSRCHSZ-1,D2 ;setup up search size for main mem CHGO15 
BRA.S @2 ;skip to do it CHGO15 
TEFF @1 MOVE #VSRCHSZ-1 ,D2 ;setup for video memory search CHGO15 
FFFF 8000 ANDI.L #VMSK,D1 ;mask off undefined info CHGO15 
01A6 @2 MOVE.L D1,PEADDR ;Save error address CHG0O15 
; Reset NMI vector and start search for exact address CHGO15 
002A LEA PRTYINT2 ,A1 ;setup new vector CHGO15 
007C MOVE.L A1,NMIVCT 7 CHGO015 
SUB.L D3,D1 ;convert to logical address CHGO15 
MOVE.L D1,Al1 ;setup for use CHGO15 
OOFC E01C TST.B  PAROFF ;clear parity bit CHGO15 
OOFC E01E TST.B  PARON CHGO015 
CLR.L D4 ;clear for use CHGO15 
@3 MOVE.B (Al1)+,D4 ;search for parity error by byte CHGO15 
FFFC DBRA D2,@3 jloop until found CHGO15 
; Error did not repeat CHGO15 
BRA.S  PRIXIT 7gO save error info and exit CHGO15 
; Subroutine to check for parity error 
0001 OOFC F801 TSTSTAT BIST #1, STATREG ;check for parity error CHGO15 
RTS ;return with condition code set CHGO15 
; Parity error handler, phase 2. 
; Assumes: 
: Al = error address + 1 
; DO = expected data (long) 
D4 = error data (byte) 
; Uses registers: 
: D1 = error address 
F D2 = scratch 
PRTYINT2 
BSR.S TSTSTAT ;parity error? CHGO15 
F78E BNE NMI ;skip if not to handle NMI CHGO15 
0076 BSR GETPADDR ;get error address CHGO15 
0278 MOVE.L D1,PEADR2 ;save it CHG0O15 
0000 0001 SUBA.L #1,Al1 ;get actual address CHGO15 
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OF86| 21C9 0270 MOVE.L A1,ACTADDR ;save address and data CHGO15 
OF8A| 21C4 0274 MOVE.L D4,ACTDATA : CHGO015 
OF8E| 0801 0005 BTST #5,D1 ;video error? CHG0O15 
OF92| 6632 BNE.S  PRIXIT ;skip if yes CHGO015 
OF94 | 

OF94| 2209 MOVE.L A1,D1 ;get error address CHGO15 
OF96| 0281 0000 0003 ANDI.L #ADRMSK,D1 ;setup up rotate count CHGO15 
OF9C| 2401 MOVE.L D1,D2 ;save it CHGO15 
OF9E| 6706 BEQ.S @2 ;skip if pre-rotate not needed CHGO15 
OFAO | 

OFAO| E188 @1 LSL.L #8,D0 ;shift expected data to high byte CHGO15 
OFA2| 5341 SUBQ #1,D1 ‘i CHG015 
OFA4| 66FA BNE.S @1 ; CHGO15 
OFAG6 | 

OFA6| E198 @2 ROL.L #8 ,DO ;shift to low byte CHG015 
OFA8| 0280 0000 OOFF ANDI.L #SFF,DO ;strip unneeded info CHGO15 
OFAE| B900 EOR.B D4,D0 ;isolate bad bits CHGO15 
OFBO| 671E BEQ.S PCERR ;skip if no data error CHGO15 
OFB2| 0802 0000 BIST #0,D2 ;check if high or low byte error CHGO15 
OFB6| 6602 BNE.S @3 ;skip if low byte CHG015 
OFB8| E148 LSL #8 ,D0 7;else shift to high byte CHGO15 
OFBA | 

OFBA| 367C 0186 @3 MOVEA #MEMRSLT , A3 ;set ptr to save area CHGO15 
OFBE| 2809 MOVE.L A1,D4 ;set error address CHGO15 
OFCO| 2600 MOVE.L DO,D3 ;and error bits CHGO15 
OFC2| 6100 F8BO BSR SCRNSAV ;then go save data CHGO15 
OFC6 | 

OFC6| 4A39 OOFC E01C PRIXIT TST.B PAROFF ;disable parity CHG015 
OFCC| 6000 F796 BRA EXCP1 jand go to exit CHGO15 
OFDO | 

OFDO | ; mo data error - must be parity chip failure; decode to chip id CHGO15 
OFDO | 

OFDO| 2209 PCERR MOVE.L Al1,D1 ;get error address CHG0O15 
OFD2| 0801 0000 BIST #0,D1 ;check if odd or even CHGO15 
OFD6| 6708 BEQ.S @1 ;skip if even CHGO015 
OFD8| 11FC 0014 027D MOVE.B #$14,PCHIP ;bad parity chip in low word CHGO15 
OFDE| 6006 BRA.S @2 ; CHGO015 
OFEO| 11FC 0009 027D @1 MOVE.B #9,PCHIP ;bad chip in high word CHGO15 
OFE6 | 

OFE6| 7411 @2 MOVEQ #17,D2 ;calculate row address CHGO15 
OFE8| E4A9 LSR.L  D2,D1 ; for parity error CHGO15 
OFEA| 11C1 027C MOVE.B D1,PCHPROW ;Save row info CHG0O15 
OFEE| 60D6 BRA.S PRIXIT ;and exit CHG0O15 
OFFO | 

OFFO | aa aka a aa aaa ee ga a 
OFFO | ; Subroutine to get parity error address 

OFFO | ; Returns Dl = error address 
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tex 


OFFO | a aaa am ae a ra uaa a ere a a 
OFFO | 

OFFO | GETPADDR 

OFFO| 4281 CLR.L D1 ;clear for use CHGO15 
OFF2| 3239 OOFC F000 MOVE MEALTCH ,D1 ;read error latch CHGO15 
OFF8| 31C1 O1AA MOVE D1,ADRLTCH ;save it CHG015 
OFFC| EB89 LSL.L = #5,D1 ;convert to physical address CHGO15 
OFFE| 4E75 RTS ; CHGO15 
1000] 

1000 | . PAGE 

1000] Se a a a SSeS eS 
1000 | ; Continue with I/O board testing 

1000] fa te te og Gee ne i ee ee Oe 
1000| 

1000 | IOTST 

1000 | . ELSE ; {ROM4K} 

1000 | . ENDC ; {ROM4K} 

1000] 

1000| .IF USERINT = 1 

1000| 327C 1E12 MOVEA #IOSTRT ,A1l ;hilite I/O board test icon 

1004| 6100 256E BSR INVICON 

1008 | . ENDC 

1008 | 

1008 | .IF FULLSCC = 1 

1008 | ak a a aa ae a a ag uaa aan a a wa ; 
1008 | ; SCC Test (Checks RS232 port controller) 

1008 | ; 

1008 | ; The SCC interrupt vector is written and read with all 8 bit patterns 

1008 | ; to check SCC addressing. An internal loopback test is then done on 

1008 | ; channel B. RM014 
1008 | ; 

1008 | ; The chip is always left in an initial state as follows: 

1008 | : both channels are reset 

1008 | : master interrupt enable is reset 

1008 | : DTR, RTS outputs set high on channel B CHGO11 
1008 | H 

1008 | ; Runs with interrupts off, uses stack. Uses registers: 

1008 | ; 

1008 | ; AO = SCC address DO = error indicator 

1008 | ; A2 = scratch D1 = scratch 

1008 | : D2 = scratch 

1008 | ; D3 = scratch 

1008 | ; 

1008 | ; Errors saved in DO and stored in low memory as follows: 

1008 | ; 

1008 | : 0000 0001 -> SCC vector read/write error (accessed via channel A) RM014 
1008 | ; 0000 0010 -> channel B transmit buffer empty timeout RM014 
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1008 | 
1008 | 
1008 | 
1008 | 
1008 | 
1008 | 
100¢| 
1010| 
1014| 
1016| 
1018 | 
101A| 
101A| 
101A| 
101E| 
101E| 
1020| 
1022 | 
1024| 
1026 | 
1028 | 
102A | 
102¢| 
1030] 
1032| 
1034| 
1036| 
1038 | 
1038 | 
1038 | 
1038 | 
1038 | 
1038 | 
1038 | 
1038 | 
1038 | 
1038 | 
103A| 
103¢c| 
103E| 
1040| 
1042 | 
1044| 
1046| 
1048 | 
1048 | 
1048 | 


47FA 00E4 
21CB 0008 
6100 OOBE 
5488 
7200 
7000 


10BC 0002 


3E97 
1410 
B401 
6704 
7001 
6064 
3E97 
10BC 0002 
5281 
1081 
66E4 
6010 


09 00 
04 4D 
0B 50 
Oc 00 
OD 00 
OE 13 
03 Cl 
05 EA 
0000 0010 


45FA FFEE 


tes 


iH 0000 0100 -> channel B receive buffer full timeout RM014 
it 0000 1000 -> channel B data compare error RM014 
SCCTEST LEA SCCVCT ,A3 ;set up bus error vector 

MOVE.L A3,BUSVCTR 

BSR RSTSCC ;reset and set up AO for SCC 

ADDQ.L #ACTL,AO ;adjust SCC address for channel A 

MOVEQ #0,D1 ;SCC interrupt vector starts out 0 

MOVEQ  #0,D0 jno errors 
VECTLOOP 

MOVE.B #2, (AO) ;test scc write register 2 (interrupt vector) 

; via channel A RM014 

MOVE (SP) , (SP) ;delay 

MOVE.B (AO) ,D2 ;read unmodified vector 

CMP.B D1,D2 70k? 

BEQ.S @1 ;branch if so 

MOVEQ #1,D0 ;otherwise set error code 

BRA.S SCCEXIT jand exit 
@1 MOVE (SP) , (SP) 

MOVE.B #2, (AO) ;write next vector value 

ADDQ.L #1,D1 ;increment and delay 

MOVE.B D1, (AO) ;write it 

BNE.S §VECTLOOP ;go through 256 values 

BRA.S  SETSCC ;now go do loopback init 


; Now init channel B for max baud rate and internal loopback. 
; External transmit is inhibited by setting DTR low. 


; Initialization data for SCC: max baud RS-232 async communication 


b96data: 
-byte 9,$00 ;disable all interupts RM014 
-byte 4,$4D 7x16 clk, 2 stop bits, odd parity 
-byte 11,$50 ;baud rate gen clk to receiver, transmitter 
-byte 12,$00 ;set baud rate to max 
-byte 13,$00 
-byte 14,$13 ;enable baud rate gen, BR=PCLK, loopback 
.byte 3,$C1 ;8 bits/char recv, enable receiver 
.byte 5,SEA ;DTR low, 8 bits/char xmit, enable xmit, CRC RM014 
b961lth .equ *-b96data 
SETSCC LEA B96DATA , A2 ;setup channel B RM014 


6 ee Computer Boot ROM 2.48 Listing « 93 of 265 


104¢c| 
1050| 
1052 | 
1054| 
1054| 
1054| 
1056 | 
1058 | 
1058 | 
105¢| 
105E| 
1062 | 
1064 | 
1066 | 
1068 | 
106C| 
106C| 
106C| 
1070| 
1072 | 
1076 | 
1078 | 
107A| 
107¢| 
1080 | 
1082 | 
1084 | 
1086 | 
1088 | 
108A| 
108A| 
108C | 
108C | 
108E| 
108E| 
108E| 
108E| 
1092 | 
1094 | 
1098 | 
109A| 
109E | 
10A0 | 
10A2 | 
10A4 | 
10A8 | 
10AA| 


323C 
5588 
616A 


7200 
76FF 


0810 
6608 
51CB 
5440 
6024 
3E97 
1141 


0810 
6608 
51CB 
5840 
6010 
3E97 
1428 
B401 
6608 
76FF 
5201 
66CE 


6002 


5040 


11C0 
6720 
0800 
6704 
08C7 
E248 
4A00 
6704 
08C7 
6126 
4287 


0010 


0002 


FFF8 


0004 


0000 


FFF8 


0004 


02AC 


0000 


OOOF 


0010 


MOVE .W 


SUBQ.L 
BSR.S 


#B96LTH ,D1 
#ACTL,AO 
WRITESCC 


; do the loopback test 


LPTEST MOVEQ 
MOVEQ 
SCCLOOP 
BTST 
BNE.S 


SCCOUT MOVE 


SCCLOOP2 
BIST 
BNE.S 


SCCIN MOVE 


SCCLXIT BRA.S 
SCCLERR ADDQ 
; exit, saving 


SCCEXIT MOVE.B 
BEQ.S 
BTST 
BEQ.S 
BSET 

@1 LSR 
TST.B 
BEQ.S 
BSET 

@2 BSR.S 
TST.L 


#0,D1 
#-1,D3 


#TXBE, (AO) 
SCCOUT 

D3, SCCLOOP 
#2,D0 
SCCLXIT 
(SP) , (SP) 


D1,SCCDATA (A0) 


#RXBF, (AO) 
SCCIN 

D3, SCCLOOP2 
#4,D0 
SCCLXIT 
(SP) , (SP) 


SCCDATA (AO) ,D2 


D1,D2 
SCCLERR 
#-1,D3 
#1,D1 
SCCLOOP 


SCCEXIT 
#8 ,DO 
errors 


DO, SCCRSLT 
@3 

#0,D0 

@1 
#RS232A,D7 
#1,D0 

DO 

@2 

#RS232B ,D7 
RSTSCC 

D7 


;set address for channel B 


, 


;go thru 256 bytes 
;set up timeout count 


;wait for transmit buffer empty 


;report timeout error 


;wait for data byte to come in 


;update timeout count 
;increment data 
;just do it 256 times 


;save results 
;continue if OK 
;check for chan A error 


;check for chan B error 


;leave SCC at initial condition 
;looping required? 


tex 


RM000 


RM014 


RM014 


RM014 
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10AC | 
10B0 | 
10B4 | 
10B4 | 
10B6 | 
10B8 | 
10BC | 
10BE | 
10BE | 
10BE | 
10BE | 
10BE | 
10BE | 
10BE | 
10BE | 
10BE | 
10BE | 
10BE | 
10BE | 
10BE | 
10BE | 
10BE | 
10BE | 
10C0 | 
10c2 | 
10C4 | 
10c8 | 
10CA| 
10CA| 
10CA | 
10CA| 
10CA| 
10CA| 
10CA| 
1occ | 
10CE| 
10CE | 
10CE | 
10D0 | 
10D0 | 
10D0 | 
10D0 | 
10D6| 
10DA| 
10D¢c | 
10DE | 
10E0 | 


6B00 FF5A 
6000 02E8 


611A 
4287 
6B00 FF4E 
604E 


02 00 
09 CO 
0000 0004 


05 82 
0000 0002 


207C OOFC D241 
45FA FFF2 

7204 

61E0 

700C 

6100 FAOO 


BMI.S SCCTEST ;restart test if yes 
BRA TSTCHK ;else go report error 
@3 BSR.S RSTSCC ;leave SCC at initial condition 
TST.L D7 ;in loop mode? 
BMI.S SCCTEST ;restart test if yes 
BRA.S DSKTST ;else continue to next test 
. PAGE 


; WRITESCC: used to initialize a series of SCC registers. 


7 AO = SCC address for channel to be initialized 

A2 = pointer to an initialization data block as above 
A A4 = return address 

; D1 = initialization data block size in bytes 


: A2, D1, D2 are modified. 


WRITESCC 
MOVE.B (AO) ,D2 ;read to make sure SCC is sync'ed up 
BRA.S @2 ;delay for timing, too 

@1 MOVE.B (A2)+, (AO) 

@2 DBRA D1,@1 
RTS 


INITBDATA 
. BYTE 2,$00 ;zero interrupt vector 


.BYTE 9,SC0 ;reset both channels 
INITBLTH .EQU 4 7 


INITB2 .BYTE 5,$82 ;set DTR, RTS high for Applebus 
INITB2L .EQU 2 ; 


RSTSCC 
MOVE.L #SCCBCTL,AO ;point to SCC base address (chan B) 
LEA INITBDATA , A2 ;point to channel B init data 
MOVEQ #INITBLTH,D1 ; and set up the length 
BSR.S WRITESCC ;then init channel B 
MOVEQ #12,D0 ;delay for SCC reset 
BSR DELAY 


; Subroutine to initialize SCC. Does reset and zeroes interrupt vector. 


CHGO11 


CHGO11 
CHGO11 


CHGO11 


tex 


RM014 
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10E4 | 
10E4 | 
10E8 | 
10EA | 
10EC| 
10EE | 
10EE | 
10EE | 
10EE | 
10EE | 
10EE | 
10F4 | 
10F6| 
10F8 | 
10FA| 
10FC| 
10FE| 
1100| 
1104| 
1108 | 
110¢| 
110¢| 
110¢| 
110¢| 
110¢| 
110¢| 
110¢| 
110¢| 
110¢| 
110¢| 
110¢| 
110¢| 
110¢| 
110¢| 
1110] 
1114| 
111A| 
111A| 
111A| 
111A| 
111¢| 
1120] 
1122 | 
1126| 
112A | 
112E | 
1130| 


45FA 
7202 
61D2 
4E75 


B1FC 
6604 
7038 
6002 
7037 
4287 
6A08 
3E7C 
6000 
6000 


STFA 
21CB 
207C 


7A03 
3C3C 
702F 
6100 
1028 
11C0 
7202 
6100 


FFE8 


OOFC 


0480 
FFO2 
F80E 


0078 
0008 
OOFC 


0051 
2616 
0030 
02A1 


0546 


D241 


cool 


LEA 
MOVEQ 
BSR.S 
RTS 


SCCVCT CMPA.L 
BNE.S 
MOVEQ 
BRA.S 
@1 MOVEQ 
@2 TST.L 
BPL.S 
MOVEA 
BRA 
@3 BRA 


INITB2 ,A2 
#INITB2L,D1 
WRITESCC 


#SCCBCTL,AO 
@1 
#ERS232B ,D0 
@2 
#ERS232A,D0 
D7 

@3 
#STKBASE , SP 
SCCTEST 
IOVCT 


;setup DTR, RTS outputs CHGO11 
; CHGO11 
, CHGO11 


jand return 


;accessing channel B? 
;skip if no 
;set error code for chan B 


;set error code for chan A 

;check if in loop mode 

;skip if not 

;else restore stack ptr RMOOO 
;and restart test 

;and go handle I/O card bus error 


; Test of disk interface - ensure R/W capability to shared RAM, then 
; try disable interrupts command. This test will also verify 
; the results of the disk controller's own self-test (ROM and RAM test). 


DSKTST 


.IF DIAGS = 1 


LEA 


DSKVCT , A3 


MOVE.L A3,BUSVCTR 


MOVE .L 


#DISKMEM , AO 


; Display ROM id 


#ROMIDROW, D5 
#ROMIDCOL+1 ,D6 
#'/' ,DO 
DSPVAL 

ROMV (AO) ,DO 
DO, IOROM 
#2,D1 

OUTCH 


;set up vector in case of bus timeout 


;set ptr for shared memory 


CHGO01 
;set cursor ptrs CHGO01 
; CHGO01 
;preceed with / char CHGO01 
;display it CHGO001 
read id CHGO01 
;save in low memory CHGO10 
; CHGO01 
; CHGO01 
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1134| 
1134| 
1134| 
1134| 
1136| 
1136 | 
1136 | 
1136 | 
1138 | 
113E| 
1144| 
114aA| 
114E| 
1150| 
1152 | 
1154| 
1156| 
1156| 
1156| 
1156| 
1156| 
1156| 
115¢| 
115E| 
115E| 
1160| 
1162 | 
1162 | 
1162 | 
1162 | 
1164| 
1168 | 
116C| 
116E| 
116E| 
116E| 
116E| 
1172| 
1174| 
1174| 
1174| 
1174| 
1178 | 
117A| 
117¢| 
1180| 
1180| 


6162 


4282 
227C 
0229 
203C 
0811 
6606 
5380 
66F6 
7439 


11E8 
6616 


4A02 
6612 


7055 
1140 
B028 
6606 


6100 
640C 


08C7 
4287 
6B90 
6000 


4287 


OOFC D901 


OOBF 
001c 
0006 


0016 


0002 


0002 


OBD6 


0011 


021C 


0010 
8000 


O2AE 


; Read system type 


BSR.S SETTYPE 


; Check disk alive indicator 


@2 


CLR.L D2 

MOVE.L #VIA2BASE,A1 
ANDI.B #SBF,DDRB2 (A1) 
MOVE.L #DSKTMOUT,DO 


;determine system type 


;clear for use 

;set ptr to parallel port 6522 
;ensure bit 6 is input 

;set up timeout count for 15 secs 


BTST #DSKDIAG,IRB2(Al) ;check indicator 


BNE.S @3 
SUBQ.L #1,D0 
BNE.S  @2 


MOVEQ #EDISK ,D2 


;skip if set 


CHG009 


CHG029 


CHG022 


7;else loop until timeout (about 8 us per loop) 


;error if not set 


; Try read operation and check results of self-test 


@3 


@4 


; Then 


.IF DIAGS = 1 


MOVE.B STST(AO) ,DSKRSLT ;get results of disk self-test 


BNE.S INTERR 


TST.B D2 
BNE.S INTERR 


jexit if error 


;previous error? 
;exit if yes 


try simple write operation to shared RAM 


MOVEQ #$§55,D0 
MOVE.B DO,CMD(A0) 
CMP.B  CMD(AO) ,DO 
BNE.S INTERR 


;set up pattern 
;try write 
;verify 

;exit if error 


; Finally try a command to disable interrupts 


INTERR 


DSKXIT 


BSR DSABLDSK 
BCC.S DSKXIT 

. ELSE 

. ENDC 


BSET #DISK,D7 


TST.L D7 
BMI.S DSKTST 
BRA TSTCHK 
TST.L D7 


;go issue disable cmd 
;skip if OK 


;else set disk error 
;restart if in loop mode 


;and abort further testing 


;restart if in loop mode 


CHG022 


CHG022 
CHG022 


CHG022 
CHG022 


RMOO00 


tex 
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1182 | 
1184 | 
1184 | 
1184 | 
1186 | 
1186 | 
1186 | 
1186 | 
1188 | 
1188 | 
1188 | 
118A| 
118¢| 
118¢| 
118¢| 
1190| 
1194| 
1198 | 
1198 | 
1198 | 
1198 | 
1198 | 
1198 | 
1198 | 
1198 | 
1198 | 
1198 | 
1198 | 
119A| 
11A0 | 
11A2 | 
11A4| 
11A8 | 
11AA| 
11AC| 
1125 | 
11B2 | 
11B4 | 
11B6| 
11B8 | 
11BA| 
11BE| 
11C0 | 
11C0 | 
11C0 | 
11C0 | 
11C0 | 


6B88 


603A 


7039 


4287 
6A08 


3E7C 
6000 
6000 


4280 
1239 
4a01 
6A16 
0801 
6704 
7001 
600C 
0801 
6704 
7002 
6002 
7003 
11C0 
4E75 


0480 
FF7A 
F782 


OOFC C031 


0005 


0006 


O2AF 


DSKVCT MOVEQ 


#EDISK,DO 


.IF ROM4K = 0 


TST.L 
BPL.S 
. ENDC 


D7 
@3 


;else 


go to next test 


;SET ERROR CODE 


;check if in loop mode 


;skip 


;else 


if not 


restore stack ptr 


;and restart test 
;GO HANDLE I/O CARD BUS ERROR 


; Subroutine for determining system type 
; Returns type value in DO and sets SYSTYPE location in memory 
H DO = 0 - Lisa 1 


; 1 - Lisa 2/external disk with slow timers 
: 2 - Lisa 2/external disk with fast timers 
: 3 - Lisa 2/internal disk (Pepsi) with fast timers 


SETTYPE CLR.L 
MOVE.B 
TST.B 
BPL.S 
BTST 
BEQ.S 
MOVEQ 
BRA.S 
@1 BTST 
BEQ.S 
MOVEQ 
BRA.S 
@2 MOVEQ 
@9 MOVE.B 
RTS 


DO 


D1 


#3 ,D0 


;clear for type usage 
;read disk id 
;check for Lisa 1 


skip 
;Lisa 
skip 
;else 
;Lisa 
skip 
;else 


;else 


if yes 

2 with slow timers? 
if not 

set type 


2 with fast timers? 
if not 
set type 


must be Pepsi with fast timers 
system type 


RMOO00 


tex 


6 ee Computer Boot ROM 2.48 Listing « 98 of 265 


11C0 | 
11C0 | 
11¢4 | 
11¢8 | 
11cc| 
11D0| 
11D6 | 
11DC | 
11DC | 
11DC | 
11DE | 
11E2 | 
11E2 | 
11E2 | 
11E2 | 
11E2 | 
11E2 | 
11E2 | 
11E6 | 
11EA | 
11EA | 
11EA | 
11EA| 
11EE | 
11F0 | 
11F4| 
11F6| 
11FA| 
11FC| 
11FC| 
1200| 
1202 | 
1206| 
1208 | 
120¢| 
120E | 
1214| 
1218 | 
121A| 
121A| 
121A| 
121A| 
121A| 
121A| 
121A| 
121¢C| 
121E| 


STFA 
21CB 
6100 
6100 
207C 
117C 


6104 
6000 


2278 
347C 


6100 
6568 
0c00 
6624 
6100 
655C 


0c00 
6636 
6100 
6550 
0c00 
660C 
11FC 
08C7 
60D0 


4A00 
6A1E 
0c00 


F754 
0008 
F924 
F8FE 
OOFC 
00c9 


OOAC 


0260 
02C0 


F892 


OOFF 


F886 


OOFE 


F87A 


00c4 


OOOF 
001c 


OOFD 


tex 


;set up bus error vector 


;notify user that keyboard about to be scanned 
;delay for 1/10 sec 

;set up VIA address 

;set intrpt control for later use 

; also causes second "click" 


;go check for keyboard input 
;and continue on 


;set up queue ptrs 


;go check for keyboard input 
;exit if no data or queue full 
;is it the command key? 


7yes - get next char to see if boot cmd 
;exit if queue full or no more data 


;check for shift key 

;skip if no - go save as boot code 

7;else keep checking for command sequence 
;skip if Q full or no data 

7'P' key for power-cycling 


;set for power-cycle mode 
;set alternate boot 
;and continue scan 


do test for downstroke or mouse button (used for burnin cycling) 


;skip if not downstroke 


COPSCHK LEA COPSVCT ,A3 
MOVE.L A3,BUSVCTR 
BSR CLICK 
BSR DELAY 1 
DD81 MOVEA.L #VIA1BASE,A0 
0018 MOVE.B #$C9,PCR1 (AO) 
BSR.S SCANCPS 
BRA CLKTST 
; Subroutine to do scan of keyboard COPS 
SCANCPS 
MOVE.L KBDQPTR,A1 
MOVEA #QEND,A2 
; Scan for keyboard data 
KEYSCAN BSR GETDATA 
BCS.S @9 
CMPI.B #CMDKEY,DO 
BNE.S  @1 ;skip if no 
BSR GETDATA 
BCS.S @9 
CMPI.B #SHFTKEY,DO 
BNE.S @2 
BSR GETDATA 
BCS.S @9 
CMPI.B #PKEY,DO 
BNE.S @1 ;skip if not 
01B3 MOVE.B #PC,BOOTDVCE 
BSET #ALTBOOT ,D7 
BRA.S KEYSCAN 
@1 
.IF USERINT = 1 
TST.B DO ;check keycode 
BPL.S @4 
CMPI.B #ALPHKEY,DO 


;ignore alpha lock key 
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1222| 67C6 BEQ.S KEYSCAN 

1224| . ENDC 

1224| 

1224 | .IF BURNIN = 1 

1224| OCOO 0086 CMP .B #MOUSDWN , DO ;mouse button? 

1228| 6608 BNE.S @3 ;skip if not 

122A| O8F8 0002 02A2 BSET #MSBUIN,STATFLGS ;else set flag for later use 

1230| 60B8 BRA.S KEYSCAN ;and continue scan 

1232 | . ENDC 

1232 | 

1232 | @3 

1232 | .IF USERINT = 1 

1232| O8C7 001D BSET #BTIMENU , D7 ;set indicator for boot menu 

1236| . ENDC 

1236| 

1236| 60B2 BRA.S KEYSCAN ;and continue scan 

1238 | 

1238 | ; Save code as possible boot id and set indicator 

1238 | 

1238| 6124 @2 BSR.S XLATE ;translate to boot id code and save 
123A| 60AE BRA.S KEYSCAN ;and continue keyboard scan 

123C| 

123C| ; Check if release of mouse or COMMAND key (in case continuing after error) 
123C| 

123C| OCOO 0006 @4 CMP .B #MOUSUP , DO ;mouse release? 

1240| 6608 BNE.S @5 

1242| O8B8 0004 02A2 BCLR #MOUSE,STATFLGS ;clear marker if yes 

1248| 60A0 BRA.S KEYSCAN ;and continue scan 

124A| 

124A| OCOO OO7F @e5 CMP.B  #CMDUP,DO ;Left CMD key release? 

124E| 6606 BNE.S @6 

1250| O8B8 0003 02A2 BCLR #CMDFLG,STATFLGS ;clear marker if yes 

1256| 

1256| 6092 @6 BRA.S KEYSCAN ;continue scan 

1258 | 

1258| 21C9 0260 @9 MOVE.L Al1,KBDQPTR ;save buffer ptr 

125C| 4E75 RTS ;and return to caller 

125E | 

125E | Fa aa a wa ae auc a a a 
125E | ; Subroutine to translate keycodes to boot device codes. Returns 
125E| ; with boot code in D2 if match found, else D2 = $F for no match. 
125E| ; Also saves boot id in memory, and sets alternate boot indicator. 
125E | ; Destroys A3 and D2. 

125E | aaa ak mea a a mT a SET EP a sO ER 
125E| 

125E| 47FA 001A XLATE LEA KEYTBL , A3 ;get ptr to keycode table 

1262| 4282 CLR.L D2 ;clear for counter 


tex 
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1264| 
1266| 
1268 | 
126A| 
126C| 
126E | 
1270] 
1270] 
1274| 
1278 | 
127A| 
127A| 
127D| 
1280| 
1283| 
1286 | 
1289| 
128A | 
128B| 
128B| 
128¢C| 
128¢| 
128¢| 
128¢| 
128¢C| 
128¢| 
128¢C| 
128¢C| 
128¢| 
128¢| 
128E| 
1290| 
1292 | 
1296| 
129A| 
129E | 
12A0 | 
12A0 | 
12A0 | 
12A0 | 
12A0 | 
12A2| 
12A6 | 
12A8 | 
12AC | 
1225 | 
12B2 | 


01 O1 


6112 
4287 
6BFA 
0807 
6600 
6100 
604E 


40E7 
007C 
7002 
6100 
6534 
347C 
327C 


01B3 
001c 


F2 
01 
01 
01 
01 


000E 
0102 
232A 


0700 


F6AC 


01c0 
01B9 


@1 CMP .B (A3)+,D0 
BEQ.S @2 
ADDQ #1,D2 
TST.B  (A3) 
BNE.S @1 
MOVEQ #S7F,D2 
@2 


MOVE.B D2,BOOTDVCE 
BSET #ALTBOOT ,D7 


KEYTBL .BYTE KEY1,KEY2,KEY3 
.BYTE KEY4,KEY5,01 
.BYTE KEY6,KEY7,01 
.BYTE KEY8,KEY9,01 
.BYTE 01,01,01 
.BYTE 01 
.BYTE ENTRKEY 


CLKTST 
IF NEWLISA = 1 
IF DIAGS = 1 
BSR.S READCLK 
TST.L D7 


BMI.S CLKTST 
BTST #CLK,D7 
BNE TSTCHK 
BSR CHKIOBRD 
BRA.S CONFIG 


;do search until match 
;skip if match 

;else bump cntr 

;at end? 

71if not continue scan 
;else set for invalid code 


;Save as boot device code 
;set indicator 
jand exit 


’ 3 


71,2 
74,5,reserved (01 is invalid keycode) 


76,7,reserved 
78,9,reserved 
; reserved 


;reserved for power-cycle mode 


;Enter on numeric key pad 
; (for Monitor access) 
;ensure on word boundary 


;go read clock 
;restart if in loop mode 


yany errors? 
jabort if yes 
;else mark I/O board OK 
;and exit to next test 


; Subroutine to read clock - destroys regs AO-A2, DO-D1 


READCLK DISABLE 


# MOVE SR,- (SP) 
# ORI #$0700,SR 
MOVEQ #$02,D0 
BSR COPSCMD 
BCS.S CLKERR 
MOVEA #DATARGS,A2 


RDCLKO MOVEA #CLKDATA-1,A1 


;disable all interrupts 


;set up read clock cmd 

;and send to COPS 

;exit if error 

;set ptr to end of save area 
;set ptr to start of save area 


tee 


RMO000 
RMO000 
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12B6| 6100 F7C6 BSR.S  GETDATA ;go get clock reset code 
12BA| 6526 BCS.S CLKERR ;exit if timeout error 

12BC| OC00O 0080 CMP.B #5$80,D0 jis it the reset code? 

12C0| 66F0 BNE.S RDCLKO ;skip if no to continue wait 
12C2| 6100 F7BA BSR.S  GETDATA ;go check if clock data 
12C6| 651A BCS.S CLKERR 

12c8| 0200 OOFO ANDI.B #SF0,D0 ;mask to check if clock flag 
12CC| OCO0 O0EO CMP.B #SE0,DO ;clock data? 

12D0| 66E0 BNE.S RDCLKO ;continue wait if no 

12D2 | 

12D2| 7205 MOVEQ #5,D1 ;set expected byte count 
12D4| 6100 F7A8 RDCLK1 BSR GETDATA ;go read clock data 

12D8| 6508 BCS.S CLKERR ;exit if error 

12DA| 5341 SUBQ #1,D1 7else loop until all data received 
12DC| 66F6 BNE.S  RDCLK1 

12DE | ENABLE ;restore interrupt mask 
12DE| 46DF # MOVE (SP)+,SR 

12E0| 4E75 RTS 

12E2 | 

12E2 | ; Error exit - set indicator and return 

12E2 | 

12E2| 08C7 0O00E CLKERR BSET #CLK ,D7 

12E6 | ENABLE ;restore interrupt mask 
12E6| 46DF # MOVE (SP)+,SR 

12E8| 003C 0001 ORI.B #$01,CCR j;leave carry bit set 

12EC| 4E75 RTS 

12EE | 

12EE | . ENDC 

12EE | . ENDC 

12EE | . PAGE 

12EE | pesos S555 348558 55— $3555 5855855558525 S esas Sees SS aaS5 S58 — 5585555 5-55545- 
12EE | ; Scan I/O slots to determine what cards, if any, are installed and save 
12EE| ; id's of installed cards. 

12EE | Pest es a sa aS er Stereos 
12EE | 

12EE | CONFIG 

12EE | .IF USERINT = 1 

12EE| 327C 1E20 MOVEA #XCRDSTRT,A1 ;hilite I/O slot test icon 
12F2| 6100 2280 BSR INVICON 

12F6| . ENDC 

12F6| 

12F6| 7801 CONFIG2 MOVEQ #1,D4 ;set flag for status check 
12F8| 610C BSR.S  RDSLOTS ; and go scan the slots 
12FA| 

12FA| .IF DIAGS = 1 

12FA| 4A87 TST.L D7 ;restart if in loop mode 
12FC| 6BF8 BMI.S CONFIG2 


tex 
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12FE | . ENDC 

12FE | 

12FE| 6100 22CE BSR CHKXCRD j;mark I/O slots OK 

1302| 6000 0096 BRA TSTCHK ;exit to check overall results 
1306 | 

1306 | PRSSS oS SSS sS SSRs SSeS sss sso sea ase = ss ease Sas sass sana saSaSS$5e5552555- 5-5 
1306 | ; Subroutine to scan I/O expansion slots 

1306 | ; Inputs: 

1306| s D4 = non-zero if status check to be done, else O for no check 
1306| ; Outputs: 

1306 | : Saves card id's in locations $298-$29C 

1306| ; Error bits set in D7 if slot card errors encountered 
1306| - Error code saved in location BOOTDATA+1 

1306| ; Side Effects: 

1306| : A5,A6 trashed 

1306 | SSeS seSSSsSSe Ss Sah esas sess aS 34S SS SS SS S57 Ss S56 S 58S Sse S5e eso sSEs 
1306 | 

1306| 48E7 4070 RDSLOTS MOVEM.L D1/A1-A3,-(SP) ;save regs 

130A| 2C4F MOVE.L SP,A6 ;save stack ptr 

130C| 4281 CLR.L D1 ;for result use 

130E| 327C 0298 MOVEA #I01ID,A1 ;get ptr to id save area RMOO0O 
1312 | 

1312| 247C OOFC 0001 MOVE.L #SLOT1L,A2 ;get slot 1 address 

1318 | 

1318| 2A78 0008 MOVE.L BUSVCTR,A5 ;save current bus vector value 
131C| 47FA 0014 LEA NOCRD1 ,A3 ;init bus error vector 

1320| 21CB 0008 MOVE.L A3,BUSVCTR ; in case no card installed 
1324| 030A 0000 MOVEP (A2) ,D1 ;read id for slot 1 

1328| 6156 BSR.S CHKID ;go check id 

132A| 6408 BCC.S SLOT2 ;skip if OK 

132C| O8C7 0019 BSET #IO1ERR ,D7 ;else set error indicator 
1330] 6002 BRA.S SLOT2 ;and continue 

1332 | 

1332| 4259 NOCRD1 CLR (AL) + ;set id for no card 

1334 | 

1334| 247C OOFC 4001 SLOT2 MOVE.L #SLOT2L,A2 ;do same for slot 2 

133A| 47FA 0014 LEA NOCRD2 , A3 

133E| 21CB 0008 MOVE.L A3,BUSVCTR 

1342| 030A 0000 MOVEP (A2) ,D1 ;xead and check id 

1346| 6138 BSR.S CHKID 

1348| 6408 BCC.S SLOT3 ;skip if OK 

134A| O8C7 001A BSET #1I02ERR ,D7 ;else set error indicator 
134E| 6002 BRA.S SLOT3 ;and continue 

1350| 

1350| 4259 NOCRD2 CLR (AL) + ;set id for no card 

1352 | 

1352| 247C OOFC 8001 SLOT3  MOVE.L #SLOT3L,A2 ;and finally for slot 3 


tex 
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1358| 47FA 0014 LEA NOCRD3 ,A3 

135C| 21CB 0008 MOVE.L A3,BUSVCTR 

1360| 030A 0000 MOVEP (A2) ,D1 ;xead and check id 

1364| 611A BSR.S  CHKID 

1366| 6408 BCC.S CFGEXIT ;skip if OK 

1368| O8C7 001B BSET #IO3ERR ,D7 ;else set error indicator 

136C| 6002 BRA.S  CEFGEXIT ;go to exit 

136E | 

136E| 4259 NOCRD3 CLR (AL) + ;set id for no card 

1370 | 

1370| ; Restore default bus error vector and SP and continue 

1370 | 

1370| 007C 0700 CFGEXIT ORI #50700,SR ;ensure interrupts off 

1374| 21CD 0008 MOVE.L A5,BUSVCTR ;restore from previous saves 

1378| 2E4E MOVE.L A6,SP 

137A| 4CDF OE02 MOVEM.L (SP)+,D1/A1-A3 ;and restore regs 

137E| 4E75 RTS ;then exit 

1380 | 

1380 | fee eae ee ene ee eS eS eo eee eee See eee ee 
1380 | ; Subroutine to do I/O slot card id check. 

1380 | ; Requires D1 = card id 

1380 | pag ee re Se eS ee Ee 
1380 | 

1380 | CHKID 

1380| 0C41 FFFF CMP #SFFFF ,D1 ;check for prototype card 

1384| 6710 BEQ.S @9 ;skip if not - treat as no card 

1386| 32C1 MOVE D1, (Al) + ;else save id 

1388| 6B06 BMI.S @7 ;if bootable go do check 

138A| 0801 OO0E BIST #STBIT,D1 ; or do if status routine exists 

138E| 6704 BEQ.S @8 ;skip if not 

1390| 6100 OE3A @7 BSR RDIOSLT ;else go check for good board 

1394| 4575 @8 RTS 

1396 | 

1396| 4259 @9 CLR (AL) + ;set id for no card 

1398| 4E75 RTS 

139A| 

139A| . PAGE 

139A| Pe eS SS Sa Saas See SSeS Ses Sara as Ses ease ssso oS 
139A| ; Check test results by checking error indicators in reg D7. 

139A| ; Output greeting message if system contains memory and all is OK. 

139A| ; Else output appropriate error messages. 

139A| pee ae ea Sse pee ee ee eo ee Pe es ee ea ae eo ee eS 
139A| 

139A| 6100 EC9E TSTCHK BSR SAVEREGS ;save regs first 

139E | 

139E| 47FA 000A LEA TST2 ,A3 ;setup bus error vector for type check CHG032 
13A2| 21CB 0008 MOVE.L A3,BUSVCTR ' CHG032 


tex 
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13A6| 
13AA| 
13AA| 
132E| 
13B2 | 
13B6 | 
13B6| 
13B6 | 
13B6 | 
13BA| 
13BA| 
13BA| 
13BC | 
13C2 | 
13C4 | 
13¢8 | 
13¢8 | 
13¢8 | 
13¢8 | 
13¢8 | 
13¢8 | 
13¢8 | 
13CA| 
13D0| 
13D2| 
13D4| 
13D4| 
13D4| 
13D4| 
13D8 | 
13D8 | 
13D8 | 
13D8 | 
13D8 | 
13D8 | 
13D8 | 
13D8 | 
13DC | 
13DE| 
13E0 | 
13E4| 
13E8 | 
13E8 | 
13E8 | 
13E8 | 
13EC| 
13F0| 


6100 


6100 
3E7C 
6100 


6100 


2007 
0280 
4A80 
6700 


2007 
0280 
4A80 
673A 


45FA 


0807 
670A 
7029 
6100 
6000 


6100 
6100 
6100 


FDFO 


F336 
0480 
F4D2 


1D22 


OE7F 


0220 


0000 


25B5 


0001 


0108 
F39A 


02E2 
02DE 
02D6 


FFFF 


OOOF 


BSR 


TST2 BSR 
MOVEA 
BSR 


SETTYPE 


SETBUSVCT 
#STKBASE , SP 
SETVLTCH 


.IF USERINT = 0 


. ELSE 
BSR 
. ENDC 


MOVE.L 
ANDI.L 
TST.L 
BEQ 


CLRDESK 


D7,DO 
#ERRMSK , DO 
DO 

OTHER 


.IF ROM4K = 0 


D7,DO 
#CPUMSK , DO 
DO 

EXCHK 


.IF USERINT = 0 


. ELSE 
LEA 


. ENDC 


CPUBRD , A2 


; Check for specific error 


.IF DIAGS = 1 


BIST 
BEQ.S 
MOVEQ 
BSR 
BRA 


#CPUSEL , D7 
@1 
#ECPUSEL , DO 
ERRDISP 
VIA2TST 


tex 


;go set system type CHG032 
;restore default bus error vector RM000 
; and default stack 

;and set video latch CHG020 


;clear desktop 


;GET ERROR INDICATORS 
;MASK OFF NON-FATAL ERRORS 
7; OK? 

;SKIP IF YES 


;get error indicators 

;mask off no-CPU errors 

yany? 

;skip if none to check for exception errors 


;set ptr for CPU board icon 


;check for CPU selection error 
;skip if not 

;else get error code 

;display it 

;and loop on parallel port VIA test 


; Sound error tones if not selection error (controls path to speaker) 


@1 BSR 
BSR 
BSR 


LOPTCH 
LOPTCH 
HIPTCH 


;CPU error causes lo,lo,hi tones 
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13F4 | 
13F4 | 
13F4 | 
13F4 | 
13F8 | 
13FA | 
13FC | 
13FE | 
13FE | 
13FE | 
13FE | 
13FE | 
1402 | 
1404| 
1406| 
1408 | 
1408 | 
140A| 
140A | 
140A| 
140A | 
140A | 
140A | 
140E | 
140E | 
140E | 
140E | 
140E | 
140E | 
140E | 
140E | 
1410] 
1416| 
1418 | 
141A | 
141A| 
141A| 
141A | 
141A| 
141A| 
141A| 
141E| 
1422 | 
1426| 
1426| 
1426| 
1426| 


0807 0000 
6704 
7028 
600C 


0807 0002 
6704 
702A 
6002 


702B 


6000 01B4 


2007 
0280 0000 03F0 
4A80 
6744 


6100 02B0 
6100 02A8 
45FA 2930 


0807 0004 


; Continue check for specific error 


BIST 

BEQ.S 
MOVEQ 
BRA.S 


@2 


@3 MOVEQ 


@9 BRA 


#MMU ,D7 
@2 
#EMMU , DO 
@9 


#EVID ,DO 
@9 


#ECPAR ,DO 


TSTXIT 


.IF USERINT = 0 


. ELSE 


; Sound error tones 


BSR 
BSR 
LEA 
. ENDC 


LOPTCH 
HIPTCH 
LISA,A2 


;CHECK IF MMU ERROR 
;SKIP IF NO 

;ELSE GET ERROR CODE 
;and go output it 


;CHECK IF VIDEO ERROR 
;SKIP IF NO 

;ELSE GET ERROR CODE 
;and go output it 


7else must be parity ckt error 
; {(ROM16K} 

; {NEWLISA} 

; {DIAGS} 


;go to exit 


7 {ROM4K} 


;mask off non-exception errors 


;OK? 
;skip if yes to next check 


;general logic failure causes lo,hi tones 


;set ptr for general LISA error 


; Scan for details on exception errors 


BTST 
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#CPUINTR ,D7 


;NMI? 


ney 


142A | 
142¢| 
142E | 
1430| 
1430| 
1434| 
1436 | 
1438 | 
143A | 
143a| 
143E| 
1440] 
1442 | 
1444| 
1444| 
1448 | 
144a| 
144¢c| 
1445 | 
1445 | 
1452 | 
1454| 
1456| 
1458| 
1458 | 
145a| 
145a| 
145E| 
145E| 
145E| 
145E| 
145E| 
145E| 
1460| 
1466| 
1468 | 
146C| 
146C| 
146C| 
146C| 
1470 
1470] 
1470] 
1470| 
1470] 
1470] 
1470 


6704 
702C 
602A 


0807 
6704 
702D 
6020 


0807 
6704 
702E 
6016 


0807 
6704 
702F 
600C 


0807 
6704 
7030 
6002 
7031 


6000 


2007 
0280 
4A80 
6700 


45FA 


0807 


0005 


0006 


0007 


0008 


0164 


001F DCOO 


008E 


24DD 


000A 


BEQ.S @1 
MOVEQ #ECPUINTR,DO 
BRA.S @9 

@1 BTST #BUSEXCP , D7 
BEQ.S @2 
MOVEQ #EBUSEXCP,DO 
BRA.S @9 

@2 BTST #ADREXCP , D7 
BEQ.S @3 
MOVEQ #EADREXCP,DO 
BRA.S @9 

@3 BTST #MISEXCP ,D7 
BEQ.S @4 
MOVEQ #EMISEXCP,DO 
BRA.S @9 

@4 BTST #ILLEXCP ,D7 
BEQ.S @5 
MOVEQ #EILLEXCP,DO 
BRA.S @9 

@5 MOVEQ #ETRPEXCP,DO 

@9 BRA TSTXIT 


IOCHK MOVE.L D7,D0 
ANDI.L #IOMSK,DO 
TST.L DO 
BEQ KBDCHK 


.IF USERINT = 0 
.ELSE 
LEA IOBRD ,A2 
.ENDC 


.IF ROM4K = 0 


;set error code 
;and go display 


;bus error? 


;set error code 


;address error? 


;set error code 


;miscellaneous error? 


;set error code 


jillegal instruction error? 


;set error code 


;must be a trap error 


;and go to exit 


;GET ERRORS 

;MASK OFF NON-IO ERRORS 
7;OK? 

;SKIP IF YES TO NEXT CHECK 


;set ptr for I/O board icon 


; Scan for details on I/O errors 


IF ROM16K = 1 
BTST #VIA1 ,D7 


;check for keyboard VIA errors 


tex 
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1474| 6708 BEQ.S @1 ;skip if OK 

1476| 7032 MOVEQ #EVIA1 ,DO ;else set error code 
1478| 6170 BSR.S  ERRDISP ;display the error 

147A| 6000 F434 BRA VIA1CHK ;and loop on VIA #1 test 
147E| 

147E| ; Sound error tones if not VIA #1 error (controls the speaker) 
147E| 6100 024C @1 BSR LOPTCH ;I1/O errors cause lo,hi,lo tones 
1482| 6100 0244 BSR HIPTCH 

1486| 6100 0244 BSR LOPTCH 

148A| ; Continue scan for detailed errors 

148A| 

148A| 0807 000B BIST #VIA2 ,D7 ;parallel port VIA error? 
148E| 6704 BEQ.S @2 

1490| 7033 MOVEQ’ #EVIA2,D0 ;set error code 

1492| 6052 BRA.S @19 

1494 | . ENDC 

1494 | 

1494| 0807 000C @2 BTST #IOCOPS ,D7 

1498| 6708 BEQ.S @3 

149A| 7034 MOVEQ #EIOCOP,DO ;get error code 

149C| 614C BSR.S ERRDISP ;display error 

149E| 6000 F44a BRA COPSENBL ;and go do loop on COPS test 
14A2 | 

14A2 | @3 

14A2 | .IF DIAGS = 1 

14A2| 0807 O00E BTST #CLK ,D7 

14A6| 6704 BEQ.S @4 

14A8| 7036 MOVEQ #ECLK,DO ;ELSE GET ERROR CODE 
14AA| 603A BRA.S @19 

14AC | . ENDC 

14AC | 

14AC | @4 

14AC | .IF FULLSCC = 1 

14AC| 0807 OOOF BTST #RS232A,D7 

14B0| 6704 BEQ.S @6 

14B2| 7037 MOVEQ #ERS232A,D0 ;ELSE GET ERROR CODE 
14B4| 6030 BRA.S @19 

14B6| 

14B6| 0807 0010 @6 BTST #RS232B ,D7 

14BA| 6704 BEQ.S @7 

14BC| 7038 MOVEQ #ERS232B ,D0 ;ELSE GET ERROR CODE 
14BE| 6026 BRA.S @19 

14c0| . ENDC 

14c0| 

14C0| 0807 0011 @7 BTST #DISK,D7 

14C4| 6704 BEQ.S @8 

14C6| 7039 MOVEQ #EDISK,DO ;ELSE GET ERROR CODE 


tex 


6 <7 Computer Boot ROM 2.48 Listing « 108 of 265 


14C8| 601Cc BRA.S @19 

14CA| 

14CA| 0807 0012 @8 BTST #IOEXCP ,D7 

14CE| 6704 BEQ.S @9 

14D0| 703A MOVEQ #EIOEXCP ,DO ;ELSE GET ERROR CODE 

14D2| 6012 BRA.S @19 

14D4 | 

14D4| 0807 0013 @9 BTST #IOCOPS2 ,D7 ;COPS code error? 

14D8| 6704 BEQ.S @10 

14DA| 703B MOVEQ #EIOCOP2 ,DO ;get error code 

14DC| 6008 BRA.S @19 

14DE | 

14DE| 0807 0014 @10 BIST #IOKBD , D7 71/0 or keyboard error? 

14E2| 6702 BEQ.S @19 

14E4| 703C MOVEQ #EIOKBD,DO ;get error code 

1456 | 

1456 | . ENDC ; {ROM4K} 

1456 | 

14E6| 6000 O00D8 @19 BRA TSTXIT 

14EA | 

14EA | a aa aaa a a aa et eal 
14EA | ; Subroutine to do display for fatal errors 

14EA | I ee Sa ee re sae eee oe ee ee a nee ee ee 
14EA | 

14EA | ERRDISP 

14EA | .IF USERINT = 1 

14EA| 6100 1FEE BSR DSPERRICON ;display error 

14EE | . ENDC 

14EE | 

14EE| 6100 0132 BSR DSPCODE ;output error code 

14F2| 08C7 001F BSET #LOOP ,D7 ;set for looping operation 

14F6| 4E75 RTS 

14F8 | 

14F8 | ett Se ae oe en rn ee ere eee ee oe 
14F8 | ; Check for keyboard error 

14F8 | SS ee ee ee nD ny a eae 
14F8 | 

14F8| 0807 O000D KBDCHK BTST #KBDCOPS ,D7 ;Keyboard error? 

14FC| 6716 BEQ.S §MEMCHK ;skip to next check if not 

14FE | 

14FE| .IF USERINT = 1 

14FE | 

14FE| ; Sound error tones 

14FE | 

14FE| 6100 01C8 BSR HIPTCH ;Keyboard error causes hi,lo,hi tones 
1502| 6100 01C8 BSR LOPTCH 

1506| 6100 01C0 BSR HIPTCH 


tex 
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150A| 
150E| 
150E| 
150E| 
1510| 
1514| 
1514| 
1514| 
1514| 
1514| 
1514| 
1514| 
1514| 
1516| 
151¢C| 
151E| 
1522 | 
1522 | 
1522 | 
1522 | 
1522 | 
1522 | 
1522 | 
1526| 
152A | 
152E | 
152E| 
152E | 
152E | 
1536 | 
1538 | 
1538 | 
1538 | 
1538 | 
153C| 
1542 | 
1544| 
1546| 
1548 | 
154A | 
154¢| 
154¢C| 
154¢c| 
154¢c| 
154¢| 
1550| 
1552 | 


45FA 


7035 
6000 


2007 
0280 
4A80 
6700 


6100 
6100 
6100 


OCB8 
6E14 


2038 
0c80 
6D04 
7201 
6002 
7202 
6026 


0807 
6706 
2038 


2699 


OOAE 


0060 0000 


0070 


01A8 
01A0 
019C 


0008 0000 02A8 


02A4 
0010 0000 


0016 


01A6 


LEA KEYBDOUT , A2 


MOVEQ #EKBDCOP , DO 
BRA TSTXIT 


.IF USERINT = 0 
. ELSE 


; Sound memory error tones 


BSR LOPTCH 
BSR HIPTCH 
BSR HIPTCH 


tex 


;set ptr for keyboard icon 


;set error code 
;and go to exit 


;GET ERRORS 

;MASK OFF NON-memory ERRORS 

yany errors? 

;skip if no - must be I/O slot error 


;memory error causes lo,hi,hi tones 


; determine which memory card in error if more than one 


CMPI.L #HEX512K,TOTLMEM ;more than 1 memory card? 


BGT.S SCNRSLTS 


iskip if yes 


; only one card - check memory addresses to determine slot 


MOVE.L MINMEM,DO 
CHKMADR CMPI.L #ONEMEG,DO 


BLT.S @2 
MOVEQ #1,D1 
BRA.S @3 
@2 MOVEQ #2,D1 
@3 BRA.S MERRCHK 


;get low physical address 
;address in slot 1? 

;skip if not 

;set board id for slot 1 


;set board id for slot 2 
;and go scan for details 


; More than one memory card - scan memory test results to determine which card 


SCNRSLTS 
BTST #MPAR ,D7 
BEQ.S @1 
MOVE.L PEADDR,DO 


;parity error? 
;skip if not 
;go get error address CHGO15 
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1556| 
1558| 
1558| 
1558| 
1558| 
155C| 
155E| 
1560| 
1562| 
1564| 
1566| 
1566| 
156A| 
156C| 
156E| 
1570| 
1572| 
1572| 
1572| 
1572| 
1572| 
1572| 
1572| 
1572| 
1576| 
1578 | 
157A| 
157E| 
1580| 
1580| 
1582 | 
1582 | 
1582 | 
1582 | 
1582 | 
1582 | 
1582 | 
1586| 
158A| 
158E| 
1590| 
1590| 
1590| 
1590| 
1590| 
1590| 
1590| 


60E4 


307C 
7008 
4258 
6604 
5340 
66F8 


0c00 
6E04 
7201 
6002 
7202 


0807 
6708 
7046 
11¢1 
6002 


7047 


21C7 


0186 


0004 


0015 


02AD 


0180 


45FA 2446 


6100 
6034 


1EC4 


BRA.S 


CHKMADR 


; Check for R/W error 


@1 


@4 


@5 


@6 


@2 


MEMERR 


MOVEA 
MOVEQ 
TST 

BNE.S 


. ENDC 


#MEMRSLT , AO 
#8 ,DO 

(AO) + 

@5 


.IF ROM4K = 0 


for error details 


BIST 
BEQ.S 
MOVEQ 
MOVE .B 
BRA.S 


MOVEQ 


. ENDC 


#MEM , D7 

@2 
#EMEM , DO 
D1 ,MEMSLOT 
MEMERR 


#EPAR,DO 


.IF USERINT = 1 


MOVE.L 


D7, STATUS 
MEMBRD , A2 
DSPNUMICON 
TSTXIT2 


;and check it 


;set ptr to OR masks 
;and set counter 

;Ccheck the rows 

;skip if error detected 
;else check all masks 
;until done 


;check where error found 
;skip if low memory error 
;high memory on card 1 


;low memory on card 2 


; {USERINT} 


;check for main memory R/W error 
;exit if not 

;else display error code 

;save slot # for board in error 


;must be parity error 


; {ROM4K} 


;save power-up status 

;set ptr for memory board icon 
;display icon and board slot # 
;finally exit to monitor 


RMO00 


tex 
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1590| 
1590| 
1590| 
1590| 
1590| 
1590| 
1590| 
1594| 
1598 | 
159¢| 
15A0| 
15A0| 
15A0| 
15A4| 
1526 | 
15A8 | 
15AA| 
15AA| 
15AE| 
15B0 | 
15B2 | 
15B4 | 
15B4 | 
15B6| 
15B6| 
15BA| 
15BE| 
15C0| 
15C0| 
15C0 | 
15C0| 
15C0| 
15C0| 
15C0 | 
15C4| 
15C4| 
15C4 | 
15¢8 | 
15cCc | 
15cc| 
15cc | 
15cc | 
15cc | 
15cc | 
15cc | 
15cc | 
15cc | 


6100 
6100 
6100 
45FA 


0807 
6704 
7203 
600C 


0807 
6704 
7202 
6002 


7201 
1038 


6100 
6004 


6100 


21C7 
6100 


0136 
0136 
0132 
2476 


001B 


001A 


01B4 
1E94 


1F18 


0180 
0058 


.IF ROM4K = 0 
.IF USERINT = 0 
. ELSE 


Sound error tones 


BSR HIPTCH 
BSR LOPTCH 
BSR LOPTCH 
LEA Xcard,A2 
. ENDC 

@1 BTST #IO3ERR ,D7 
BEQ.S @2 
MOVEQ #3,D1 
BRA.S @4 

@2 BTST #1IO2ERR ,D7 
BEQ.S @3 
MOVEQ #2,D1 
BRA.S @4 

@3 MOVEQ #1,D1 

@4 MOVE.B BOOTDATA,DO 
BSR DSPNUMICON 
BRA.S TSTXIT2 
. ENDC 

TSTXIT 
.IF USERINT = 0 
. ELSE 
BSR DSPERRICON 

TSTXIT2 


MOVE.L D7,STATUS 
BSR DSPCODE 


tex 


;I1/O slot error causes hi,lo,lo tones 
;set ptr for I/O slot board icon 


;check for slot 3 error 
pexit if not 
;else set slot # 


;slot 2 error? 


;set slot # 


;must be slot 1 error 

;get error code 

;display error icon and slot # 
;and exit to monitor 


; {ROM4K} 


;display error icon 


;save status 
;display the error code 


; Save error data in special parameter memory area, then exit to monitor 


fRRRKKKKKKKKKKKEKRKREKKKKKKKK KKK 


; Delete for LISA 2 CHG034 
PRRRKRKKKKKKKKKKRKKEKEKRKEKREKKEKKE KKK 

: LEA PMVCT ,A3 ;setup bus error vector for PM RM013 
; MOVE.L A3,BUSVCTR ; RM013 
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tex 


15CC | ‘ BSR.S CHKSTATPM ;check if error already saved 

15CC | iH BCC.S | GOTOMON ;skip if yes 

15cC | ; MOVEA.L #STATSTRT ,AO ;set starting ptr 

15CC | : MOVE.B_ DO, (AO) ;save error code 

15CC| o MOVE ADRLTCH , DO ;save error address latch contents 

15CC | ; MOVEP DO,2(A0) 

15cCc| : MOVE.B MEMSLOT, 6 (AO) ;save memory slot # 

15CC| - MOVE.L CLKDATA,DO ;save clock data 

15CC | : MOVEP.L DO,8 (AO) 

15CC| ; MOVE CLKDATA+4 ,DO 

15CC | ; MOVEP DO,16(A0) 

15CC | : CLR.L DO ;clear remaining area 

15CC | ; MOVEP.L DO,20(A0) 

15CC | 

15cCc| : MOVEQ #STATWRDS-2,D0 ;validate save area 

15CC| ; BSR WRTSUM 

15CC | 

15cC| 6100 FC14 GOTOMON BSR SCANCPS ;clear COPS queue 

15D0| 6100 F34E BSR CPSINIT ;reinit interface 

15D4| 6100 19F6 BSR CURSORINIT ;init cursor and mouse 

15D8| 6000 OFC2 BRA MONITOR ;then jump to monitor 

15DC | 

15DC | freee ee ne ee ea ee ee ee ee eee eee eS 
15DC| ; Parameter memory bus error handler RM013 

15DC | aa a a aa a a me aaa eae a eam su som 
15DC | 

15DC| 3E7C 0480 PMVCT MOVEA #STKBASE , SP ;reset stack RM013 
15E0| 6100 F100 BSR SETBUSVCT ;xrestore bus error vector RM013 
15E4| 60E6 BRA.S GOTOMON ;and exit to monitor RM013 
15E6 | 

15E6 | aaa ta a a gaa ae aula 
15E6 | ; Subroutine to check special parameter memory validity. 

15E6 | ; Verify checksum routine sets carry bit if checksum not valid. 

15E6 | (anos oS Se eS Se a Se a ee eS ee 
15E6 | 

15E6 | ; CHKSTATPM CHG034 
15E6 | . MOVEM.L DO-D1/A0,-(SP) ;save regs 

15E6 | ‘ MOVEA.L #STATSTRT ,AO ;set starting ptr 

15E6 | Pp MOVEQ #STATWRDS-1,D0 ;and # of words to check 

15E6 | MOVE DO,D1 ;set for shared memory 

15E6 | H BSR VFYCHKSM ;and go do checksum 

15E6 | 7@1 MOVEM.L (SP)+,D0-D1/A0 ;restore regs 

15E6| ; RTS 

15E6 | 

15E6 | . ENDC 

15E6 | ar ate ae aT OT ee Oy PET OE Fe ED EE 
15E6| ; Scan for non-fatal errors 
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15E6 | a a aaa as uur aa al a a acc ee ae 
15E6 | 

15E6| OTHER 

15E6 | .IF ROM16K = 1 

15E6| 2007 MOVE.L D7,D0 ;get errors 

15E8| 0280 0180 0000 ANDI.L #OTHRMSK,DO ;isolate to non-fatal errors 
15EE| 4A80 TST.L DO ;OK? 

15F0| 672C BEQ.S @9 ;skip if no errors 

15F2| 0807 0017 BIST #KBDOUT , D7 ;Keyboard disconnected? 

15F6| 6706 BEQ.S @1 ;skip if no 

15F8 | 

15F8 | .IF USERINT = 0 

15F8 | . ELSE 

15FC| 6014 BRA.S @2 ;with question markcon 

15FE | . ENDC 

15FE| 

15FE| @1 ;must be mouse 

15FE| .IF USERINT = 0 

15FE| . ELSE 

15FE| 6100 0236 BSR CHKPM ;check parameter memory before notify 
1602 | ; of mouse disconnect 

1602| 6516 BcS.S @8 ;ignore error if invalid 

1604| 0839 0007 OOFC C18D BTST #MOUSEON ,MEMCODE ;check if should be installed 
160C| 670C BEQ.S @8 ;skip if not 

160E| 45FA 261B LEA MOUSEOUT , A2 ;else display mouse icon 

1612| 6100 1F42 @2 BSR DSPQICON ;with question mark 

1616 | . ENDC 

1616 | 

1616] 6000 OOAO BRA NOTIFY jalert user 

161A| 

161A| . ENDC ; {ROM16K} 

161A| 

161A| 0887 0018 @8 BCLR #MOUSOUT ,D7 ;ignore mouse disconnected error 
161E | 

161E| 6000 OOBE @9 BRA SYSOK ;system must be OK 

1622 | . PAGE 

1622 | ae a a ga a en a 
1622 | ; Subroutine to output error code 

1622 | kc ca mc mime on ah ab cn 
1622 | 

1622| 48E7 F000 DSPCODE MOVEM.L DO-D3,- (SP) ;save regs 

1626 | 

1626| .IF USERINT = 0 

1626 | . ENDC 

1626 | .IF NEWTWIG = 0 

1626 | . ENDC 

1626 | 


tex 
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1626| .IF USERINT = 1 

1626| 3A3C 0097 MOVE #CODEROW , D5 ;set screen ptrs for display 
162A| 3C3C 0012 MOVE #CODECOL , D6 

162E | . ENDC 

162E | 

162E| 6004 BRA.S  GETDIG ;go do display 

1630| .IF NEWTWIG = 1 

1630] 

1630 | ; Translate up to 4 digit hex error code to decimal 
1630 | ; Second entry point for routine 

1630| 

1630| DSPDEC 

1630| 48E7 FO0O MOVEM.L DO-D3,- (SP) ;save regs 

1634| 0280 0000 FFFF GETDIG ANDI.L #SOFFFF,DO ;clear other digits 
163A| 7201 MOVEQ #1,D1 ;display 1 char at a time 
163C| 4A40 TST DO jis it 0? 

163E| 6726 BEQ.S @9 ;exit if yes to display it 
1640| 4282 CLR.L D2 ;clear working regs 
1642| 4283 CLR.L D3 

1644 | 

1644 | ; display all non-zero digits 

1644 | 

1644| 80FC 000A @1 DIVU #5A,D0 ;converting to decimal 
1648| 4840 SWAP DO ;get remainder 

164A| 1400 MOVE.B DO,D2 ;save for display 
164C| E89A ROR.L #4,D2 

164E| 5243 ADDQ #1,D3 ;set count 

1650| 

1650| 4240 CLR DO ;clear remainder 

1652| 4840 SWAP DO ;get new quotient 
1654| 4A40 TST DO ;quit when =0 

1656| 6702 BEQ.S @2 ;skip to do display 
1658| 60EA BRA.S @1 

165A| 

165A| E99A @2 ROL.L #4,D2 ;get char for output 
165C| 1002 MOVE.B D2,D0 

165E| 5343 SUBQ #1,D3 ;decr digit count 
1660| 6704 BEQ.S @9 ;skip to display last digit 
1662| 6114 BSR.S  OUTCH ;display a digit 

1664| 60F4 BRA.S @2 ;and loop until done 
1666 | 

1666| . ENDC 

1666| 

1666| 6106 @9 BSR.S OUTCHR ;do output and CR 
1668 | 

1668| 4CDF OOOF DSPCXIT MOVEM.L (SP)+,D0-D3 ;restore regs 

166C| 4E75 RTS ;and return 


tex 
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166E| 

166E| pSSeSee ease o SaaS a Sea Sa Sanaa Sea a aa Sea a os SaaS a Se essa seses= 
166E | ; Subroutine to invoke code display routine, then do CR 

166E| PSS SS SS SSeS SS SaaS S55 Se SS SS SSS SS $$ $555 555--5 522555 <== =S5= 
166E| 

166E| 6108 OUTCHR BSR.S OUTCH ;output digits 

1670 | 

1670| .IF USERINT = 0 

1670 | . ELSE 

1670| 0645 000A ADD #CHRSPC ,D5 ;bump to next char row 

1674 | . ENDC 

1674 | 

1674| 7CO1 MOVEQ #1,D6 ;and do CR 

1676| 4E75 RTS 

1678 | 

1678 | . PAGE 

1678 | PSSST SSS re ee En nn ne nT PS 
1678 | ; Subroutines to enable display of hex codes 

1678 | ; Requires DO = value to display 

1678 | ; D1 = # of digits to display 

1678 | aa aaa aaa aa a a aa aa an 
1678 | 

1678| 48E7 E000 OUTCH MOVEM.L DO-D2,- (SP) ;save regs 

167C| 7408 MOVEQ #8,D2 ;set max digits to display 

167E| B401 @1 CMP .B D1,D2 ;check digits desired 

1680| 6706 BEQ.S @2 ;and skip if match 

1682| E998 ROL.L #4,D0 7else skip over digit 

1684| 5342 SUBQ #1,D2 jupdate count 

1686| 60F6 BRA.S @1 ;and loop until match 

1688 | 

1688| E998 @2 ROL.L #4,D0 ;rotate to next digit 

168A| 610A BSR.S  OUTNIB ;go output one digit 

168C| 5341 SUBQ #1,D1 j;decr count 

168E| 66F8 BNE.S @2 ;loop until done 

1690] 

1690| 4CDF 0007 MOVEM.L (SP) +,D0-D2 ;restore and exit 

1694| 4E75 RTS 

1696] 

1696 | ; The following routine does conversion to ASCII to enable display 
1696| 

1696| 2F00 OUTNIB MOVE.L DO,-(SP) ; SAVE REG 

1698| 0240 OOOF ANDI #S000F,D0O ; ISOLATE DIGIT TO DISPLAY 

169C| OCOO 0009 CMPI.B #9,D0 ;CHECK IF NUMERIC 

16A0| 6206 BHI.S ALPHA ;SKIP IF NOT 

16A2| 0000 0030 ORI.B  #$30,D0 ;CONVERT TO ASCII 

16A6| 6008 BRA.S DSPCH ;AND GO DISPLAY 

16A8 | 


tex 
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16A8 | 
16AC| 
16B0 | 
16B0 | 
16B4 | 
16B6| 
16B8 | 
16B8 | 
16B8 | 
16B8 | 
16B8 | 
16B8 | 
16B8 | 
16B8 | 
16B8 | 
16B8 | 
16BA| 
16BC| 
16BE | 
16C2 | 
16C6| 
16C8 | 
16C8 | 
16C8 | 
16C8 | 
16C8 | 
16CA| 
16CC| 
16CC| 
16CC | 
16CC| 
16CC | 
16CC | 
16CE| 
16D2 | 
16D4| 
16D8 | 
16DC | 
16DE| 
16DE| 
16DE| 
16DE| 
16DE| 
16DE| 
16DE| 
16DE| 
16E2 | 


0400 0009 
0000 0040 


6100 2088 
201F 
4E75 


610E 
610C 
610E 
6100 F414 
6100 1A16 
601A 


7020 
6002 


7060 
323C OOFA 
7404 
6100 F420 
6100 F3F2 
4E75 


42B8 0180 


ALPHA SUBI.B #9,D0 ;CONVERT FOR 
ORI .B #$40 ,DO ; ASCII 
DSPCH BSR DSPVAL ;OUTPUT IT 
MOVE.L (SP)+,D0 ;RESTORE REG 
RTS 
. PAGE 


; Routine to notify user of non-fatal error. Beep speaker and pause 
; for 5 seconds. 


NOTIFY 
.IF ROM16K = 1 
BSR.S  HIPTCH ;beep at high pitch twice 
BSR.S HIPTCH 
BSR.S  LOPTCH ;beep at low pitch 
BSR DELAY5 ;delay 5 seconds 
BSR CLRDESK ;clear desktop CHG033 
BRA.S DOBOOT ;then go attempt boot 


HIPTCH MOVEQ #520,D0 ; set frequency 
BRA.S SETDUR ; and go do it 


LOPTCH MOVEQ #5S60,D0 ; set frequency 
SETDUR MOVE #250,D1 ; 1/8 sec duration 
MOVEQ #4,D2 ; low volume 
BSR TONE ; and go do it 
BSR DELAY 1 ; delay for .1 sec 
RTS 
. ENDC 
. PAGE 


SYSOK CLR.L STATUS ;set status 
.IF ROM16K = 1 


tex 
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16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E2 | 
16E6 | 
16E6| 
16E6| 
16E8 | 
16EC| 
16EE | 
16F2 | 
16F2 | 
16F2 | 
16F6| 
16F8 | 
16FC| 
16FC| 
16FC| 
16FE| 
16FE| 
16FE| 
16FE| 
1702 | 
1706| 
1706| 
1706| 
170A| 
170A| 


6100 


4280 
0807 
6710 
1038 


0co0 
665C 
6100 


6056 


0807 
6600 


6100 


18E8 


001c 


01B3 


OOOF 


0154 


001D 
01F4 


012E 


DOBOOT 


BOOTCHK 


@1 


BSR CHKSTATPM 
BCC.S DOBOOT 
CLR.B STATSAV 
. ENDC 

.IF ROM4K = 0 
.IF USERINT = 0 
. ENDC 

. ENDC 

.IF ROM4K = 0 
.IF USERINT = 0 
. ENDC 

. ENDC 


. INCLUDE RM248 .B. TEXT 


BSR CURSORINIT 

CLR.L DO 

BTST #ALTBOOT ,D7 

BEQ.S @1 

MOVE.B BOOTDVCE,DO 
LIF BURNIN = 1 

CMP.B  #PC,DO 

BNE.S DVCECHK 

BSR SAV2PM 
.ENDC 

BRA.S DVCECHK 


.IF USERINT = 1 
BTST #BTMENU , D7 


BNE BOOTMENU 
. ENDC 
BSR CHKPM 


-IF AAPL = 1 


;check special save area CHG034 
;skip if valid data saved 
7else set status to 0 


; {USERINT} 
; {ROM4K} 


; {USERINT} 
; {ROM4K} 


jinit cursor/mouse 


;clear for use 

;Ccheck if alternate boot command rcvd 
;skip if no 

;get alternate boot code 


;power-cycle mode? 
7if no, go determine device 
;if yes, save in parameter memory 


;and go determine device 


;boot menu wanted? 
iskip if yes 


;next step is to check parameter memory 
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170A| 
170A| 
170¢| 
170¢| 
170¢| 
170¢| 
1710| 
1712 | 
1714| 
1718 | 
171A| 
171¢C| 
171E| 
171E| 
1720] 
1722 | 
1722 | 
1722 | 
1728 | 
172A | 
172C| 
172C| 
172C| 
172C| 
172C| 
172C| 
172C| 
172C| 
172C| 
1730| 
1734 | 
1738 | 
173A| 
173¢| 
1740 | 
1744| 
1748 | 
174A| 
174C| 
174E| 
174E | 
1752 | 
1754| 
1754| 
1754| 
1754| 
1758 | 


6416 


4238 
670C 
7401 
6100 
6704 
7001 
600E 


7002 
600A 


1039 
E808 
6028 


323C 
383C 
6100 
661A 
3602 
323C 
383C 
6100 
6704 
3403 
6A06 


C4EC 
3002 


O2AF 


0320 


OOFC C189 


1000 
1800 
01A0 


8001 
OFFF 
0190 


0003 


. ELSE 
BCC.S 


@2 


; set default boot 


TST.B 
BEQ.S 
MOVEQ 
BSR 

BEQ.S 
MOVEQ 
BRA.S 


@5 MOVEQ 
BRA.S 
. ENDC 


@2 MOVE .B 
LSR.B 
BRA.S 


SYSTYPE 


CHKPROF ILE 
@5 

#TWIG2 ,DO 
@3 


#PROFILE ,DO 
@3 


DVCCODE , DO 
#4,D0 
DVCECHK 


.IF NEWTIWIG = 0 


. ENDC 


@3 


-IF ROM16K = 1 
; Do special check for Applenet and I/O test cards 


@4 


#TSTCRD ,D1 
#TSTQUAL ,D4 
SEARCH 
DVCECHK 
D2,D3 
#APPLENET ,D1 
#APPLQUAL , D4 
SEARCH 

@4 

D3 ,D2 
DVCECHK 


#3,D2 
D2 ,DO 


tex 


iskip if valid 


;else check if Lisa 1 CHG030 
;skip if yes CHG030 
;else set wait flag CHG030 
;and go check if hard disk attached CHG030 
;skip if yes to do boot from hard disk CHG030 
7;else set for boot from floppy CHG030 
; CHG030 
;else if not valid do default boot from Profile 

;else read device code 

;rotate to low nibble 

;search first for a bootable test card 

;go do search 

;skip if not found 

;else save its id 

;next search for an Applenet card 

;skip if found to boot from it (DMT need) 

;else do boot from I/O test card (DIAG need) 

; unless card boot bit not set CHG012 


;convert to boot id 
;and set boot id for appropriate slot 


; Alternate boot desired - check which 


DVCECHK MOVE .B 


DO , BOOTDVCE 


;save for later reference 
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1758 | 
1758 | 
175A] 
175C| 
1760| 
1762 | 
1766| 
1766| 
1768 | 
176A| 
176A| 
176E| 
1770| 
1774| 
1778 | 
1778 | 
1778 | 
1778 | 
1778 | 
177C| 
177E| 
177E| 
177E| 
1782 | 
1784 | 
178A| 
178¢C| 
178¢C| 
1790| 
1792 | 
1798 | 
179A| 
179A| 
179E| 
17A0 | 
17A6 | 
17A6| 
17AA| 
17AA| 
17AA| 
17AA| 
17AE | 
17B2 | 
17B2 | 
17B2 | 
17B2 | 
17B6| 


4A00 
660E 
4238 
6704 
6000 


4200 
600A 


0c00 
6608 
103C 
6000 


0co0 
67E4 


0co0 
6E08 
227C 
601A 


0co0 
6E08 
227C 
600C 


0c00 
6E0A 
227C 


6000 


0c00 
6700 


0c00 
6676 


O2AF 


076A 


0001 


0080 
0456 


0002 


0004 


OOFC 


0007 


OOFC 


000A 


OOFC 


09B6 


OOOF 
OA8A 


0010 


0001 


4001 


8001 


@10 


@11 


@1 


@2 


@3 


@4 


@5 


@9o 


@6 


@7 


.IF TWIGGY = 1 


TST.B 
BNE.S 
TST.B 
BEQ.S 
BRA 


MOVE .B 
BRA.S 


CMP .B 


DO 

@l 
SYSTYPE 
@11 
PROBOOT 


#DRV1 ,DO 
@2 


#TWIG2 ,DO 
@3 

#DRV2 ,DO 
TWGBOOT 


.IF PROFLE = 1 


CMP .B 
BEQ.S 
. ENDC 


CMP .B 
BGT.S 
MOVE.L 
BRA.S 


IF 
CMP .B 
BEQ 

. ENDC 


#PROFILE ,DO 
@10 
#IO1PORT2 ,DO 
@4 
#SLOT1L,A1 
@9 
#IO2PORT2 ,DO 
@5 
#SLOT2L,A1 
@9 
#I0O3PORT2 ,DO 
@6 
#SLOT3L,A1 
IOSBOOT 
BURNIN = 1 
#PC ,DO 
CHKPASS 


.IF ROM4K = 0 


CMP .B 
BNE.S 


#MON , DO 
LSTCHK 


;boot from upper drive? 
;no - go to next check 
;check system type 
;skip if Lisa 1.0 

;else do Pepsi boot 


;else set drive # 
;and go do boot 


;boot from lower drive? 
;skip if no 

;else set drive # 

;and go boot 


;boot from Profile? 
7yes - go do it 


;boot from slot 1, ports 1-2? 


;skip if not 
;set slot address 
;and go do boot 


;boot from slot 2, ports 1-2? 


;skip if not 
;set slot address 
;and go do boot 


;boot from slot 3, ports 1-2? 


;skip if not 
;set slot address 


;and go do boot 


;power-cycle? 
;go do cycling 


;abort boot? 
;skip if no match 


CHG009 
CHG009 
CHG009 
CHG009 


CHG009 


CHG009 


CHG009 


tex 
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17B8 | 
17B8 | 
17B8 | 
17BE| 
17¢4| 
17¢8 | 
17c¢c | 
17c¢c | 
17c¢c | 
17¢¢c | 
17¢c¢ | 
17c¢c | 
17c¢c | 
17¢c¢ | 
17D0| 
17D4| 
17D4| 
17D4| 
17D8 | 
17DA| 
17E0 | 
17E2 | 
17E2 | 
17E2 | 
17E2 | 
17E2 | 
17E6| 
17E8 | 
17EE| 
17F6| 
17F6| 
17FA| 
17FE| 
1804 | 
1808 | 
180A| 
180E| 
1810| 
1810| 
1814 | 
1818 | 
1818 | 
1818 | 
1818 | 
1818 | 
181¢| 
181¢C| 


08B8 
O8F8 
6100 
6100 


47FA 
21CB 


6100 
653E 
1039 
E808 


0c00 
6630 
4239 
08B9 


47FA 
6100 
207C 
0108 
7204 
6100 
7C0C 


6100 
6100 


6100 


0000 02A2 
0001 02A2 
194E 
199A 


0052 
0008 


0060 


OOFC C189 


OOOF 


OOFC C189 


0006 OOFC C18D 


25FC 
1F04 
OOFC C195 
0000 


FE62 


OCB8 


OCFA 


EEC8 


.IF USERINT = 1 
#NORSTRT,STATFLGS ;allow restart option but 


BCLR 
BSET 
BSR 
BSR 
. ENDC 


#NOCONT , STATFLGS 


CLRMENU 
MAKEPCALRT 


.IF BURNIN = 1 


tex 


; no CONTINUE button for direct to monitor jump 
;clear menu bar and 
; open alert box for monitor or power cycling 


Check if completing power-cycling operation 


.IF DEBUG = 0 


LEA 
MOVE.L 
. ENDC 


BSR 

BCS.S 
MOVE .B 
LSR.B 


BSR 
BSR 


Normal exit 


PMEXIT 


PMERR , A3 
A3,BUSVCTR 


CHKPM 
PMEXIT 
DVCCODE , DO 
#4,D0 


NEWIWIG = 0 


#PC,DO 
PMEXIT 
DVCCODE 
#6 ,MEMCODE 


LOOPMSG , A3 
DSPMSG 
#LCNTHI , AO 
(AO) ,DO 
#4,D1 
OUTCHR 
#PCCOL , D6 


DSPCLK 
TWGDSP 


.IF DEBUG = 0 


BSR 
. ENDC 


SETBUSVCT 


;set vector for parameter mem error 


;check validity of parameter memory 
;skip if not 

;get boot code 

;shift to lower nibble 


;exiting from power-cycling? 
;skip if no 

7else reset boot and 

; memory test indicators 


;display loop count 


;set ptr to loop count 

iget it 

;set # of digits to display 

;and do display 

;reset col for proper left margin 


;display final clock value 
;and display Twiggy error count 


;restore normal bus error vector RMO000 


; {debug} 
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181¢| 
181C| 
181¢C| 
1820| 
1820| 
1820| 
1820| 
1820| 
1824 | 
1828 | 
182A | 
182E | 
182E | 
182E | 
182E | 
182E | 
182E | 
182E | 
182E | 
182E | 
182E | 
1832 | 
1836 | 
1836 | 
1836| 
1836| 
1836 | 
1836 | 
1836 | 
1836 | 
1836 | 
183A| 
1840| 
1844| 
1846| 
1848 | 
184¢c| 
184E| 
184E| 
184E| 
1845 | 
184E| 
1852| 
1852| 
1852| 
1854| 
185A| 


6000 


STFA 
45FA 
4280 
6000 


6100 
6000 


48E7 
207C 
303C 
3200 
6144 
4CDF 
4E75 


48E7 


E908 
1239 
0201 


OD7E 


25E1 
2125 


0D08 


OEDC 
00c4 


Cco80 
OOFC 
001F 


0103 


C080 


O0OFC 
OOOF 


c181 


C189 


.ENDC ; {BURNIN} 
BRA MONITOR ;and go to monitor 


.IF BURNIN = 1 
; Bus error handler for parameter memory error 


PMERR LEA PMMSG , A3 ;setup error message 
LEA IOBRD ,A2 ;and icon 
CLR.L DO ;no error code 
BRA INITMON ;exit to monitor 
. ENDC ; {BURNIN} 
. ENDC ; {ROM4K} 
LSTCHK 


.IF AAPL = 1 
. ENDC 


.IF USERINT = 0 


. ELSE 

BSR SQUAWK ;else sound error tone 
BRA BOOTMENU ;and go to boot menu 

. ENDC 

. PAGE 


; Subroutine to check parameter memory validity. Calls generalized 
; verify checksum routine. 


CHKPM MOVEM.L DO-D1/A0,-(SP) ;save regs 


MOVEA.L #PMSTRT ,AO ;set starting ptr 
MOVE #PMWRDS-1 ,DO j;and # of words to check 
MOVE DO,D1 ;set for shared memory 
BSR.S VEFYCHKSM ;and go do checksum 

@1 MOVEM.L (SP)+,D0-D1/A0 ;restore regs 
RTS 


; Subroutine to save boot device code to parameter memory. 


SAV2PM MOVEM.L DO-D1/A0,-(SP) ;save regs 


.IF NEWTIWIG = 0 

. ENDC 

LSL.B  #4,D0 ;rotate device code to upper nibble 
MOVE.B DVCCODE,D1 ;read current setting 

ANDI.B #SO0F,D1 ;clear device indicator 


tex 
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185E| 8001 OR.B D1,D0 ;save other data 

1860| 13C0O OOFC C189 MOVE.B D0O,DVCCODE ;and write new device code 

1866 | 

1866 | ; also set for full memory test 

1866| O8F9 0006 OOFC C18D BSET #6 ,MEMCODE ;ensure memory test indicator set 
186E| 

186E | ; then compute new checksum 

186E| 

186E| 207C OOFC C181 MOVEA.L #PMSTRT,AO ;compute new checksum 

1874| 701E MOVEQ #PMWRDS-2 , DO ;leaving out checksum word 

1876| 6106 BSR.S  WRISUM 

1878| 4CDF 0103 @2 MOVEM.L (SP)+,D0-D1/A0 ;restore regs 

187C| 4E75 RTS 

187E | 

187E| oe ee ee ee ae ee eee ee ee ee 
187E| ; Subroutine to write new checksum to parameter memory area 

187E| ee ay Se Pe Se Se ee SaoeS 
187E| 3200 WRTISUM MOVE DO,D1 ;set for shared memory 

1880| 610A BSR.S VFYCHKSM 

1882| 4643 NOT D3 ;compute 2's complement 

1884| 5243 ADDQ #1,D3 

1886| 0788 0000 MOVEP D3, (AO) ;write as new checksum 

188A| 4E75 RTS 

188C| 

188C| . ENDC 

188C| 

188C| ee ee a aaa 
188C| ; Subroutine to verify 16 bit checksum validity for memory contents. 
188C| ; 

188C| ; Inputs Required: AO = starting address for verify 

188C| : DO = # of words-1 to read 

188C| ; D1 = 0 for regular memory (uses MOVE.W) 

188C| : = nonzero for shared memory (uses MOVEP) 
188C| ; 

188C| ; Outputs: Carry bit set if computed checksum not 0. 

188C| s D2 = expected checksum (last word read) 

188C| ; D3 = computed checksum 

188C| Pe aS a ss Se SS See Se ae SaaS Sates eesssc oS 
188C| 

188C| VFYCHKSM 

188C| 4282 CLR.L D2 ;clear regs for use 

188E| 4283 CLR.L D3 

1890| 4A41 CKLOOP TST D1 ;shared memory? 

1892| 6708 BEQ.S @1 ;skip if no 

1894| 0508 0000 MOVEP (AO) ,D2 ;else read alternate bytes 

1898| 5888 ADDQ.L #4,A0 ;bump address 

189A| 6002 BRA.S @2 ;skip to do checksum 


tex 
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189C| 3418 @1 MOVE (AO) +,D2 ;read words 

189E| D642 @2 ADD D2 ,D3 ;add to computed checksum 

18A0| E35B ROL #1,D3 ;rotate for better effectiveness 
18A2| 51C8 FFEC DBF DO , CKLOOP ;loop until done 

18A6| 4A43 TST D3 ;expected result = 0 

18A8| 6704 BEQ.S  CKXIT 

18AA| 003C 0001 ORI.B #$01,CCR ;else set error indicator 

18AE| 4E75 CKXIT RTS 

18B0 | 

18B0 | .IF NEWTIWIG = 0 

18B0 | . ENDC 

18B0 | .IF USERINT = 1 

18B0 | Pa aa ea aaa maa a a aa a aaa ln la cas 
18B0 | ; Subroutine to expand boot id read from parameter memory to keycode 
18B0 | ; Returns with keycode in DO. 

18B0 | a a a aa aa aa a a al cl 
18B0 | 

18B0| 48E7 2030 EXPAND MOVEM.L D2/A2-A3,-(SP) ;save regs 

18B4| 45FA F9C4 LEA KEYTBL , A2 ;set ptrs to keycode table 

18B8| 47FA F9D1 LEA TBLEND , A3 

18BC| 4282 CLR.L D2 ;use for search id 

18BE| BO02 @1 CMP .B D2 ,DO ;check for match 

18C0| 670C BEQ.S @2 ;skip if yes 

18C2| 5242 ADDQ #1,D2 ;incr search id 

18c4| 528A ADDQ.L #1,A2 ;bump table ptr 

18C6| B7CA CMPA.L A2,A3 j;at end? 

18C8| 66F4 BNE.S @1 ;loop if not 

18CA| 7002 MOVEQ #PROFILE,DO ;else set for default boot 

18CC| 6002 BRA.S &@3 ;and go to exit 

18CE| 1012 @2 MOVE.B (A2) ,DO ;get keycode 

18D0| 4CDF 0C04 @3 MOVEM.L (SP)+,D2/A2-A3 ;restore regs 

18D4| 4E75 RTS 

18D6 | 

18D6| (emma TS RTS St Tan Se Sette sss sss ae ess eer eee ase See e 
18D6 | ; Routine to search I/O slots for specific card 

18D6 | ; Expects D1 = card id to search for 

18D6| 7 D4 = qualifier for search (mask) 

18D6| ; Returns CC = 0 if card found and 

18D6 | : D2 = slot # 

18D6 | PSRSS SS SSS $ se SSS a$$ sas esas $$ 5 SS 5584S 5 2S 85535-55355 S$ 3S s5 sos === 
18D6 | 

18D6| 48E7 9000 SEARCH MOVEM.L DO/D3,- (SP) ;save regs 

18DA| 7400 MOVEQ #0,D2 ;setup as slot counter 

18DC| 7602 MOVEQ #2,D3 ;set # of slots - 1 to check 

18DE| 41F8 0298 LEA IO1ID ,AO ;get location of saved slot id's 
18E2| 5242 @1 ADDQ #1,D2 ;bump slot # 

18E4| 3018 MOVE (AO) +,D0 ;read slot id 


tex 
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18E6 | 
18E8 | 
18EA| 
18EC| 
18F0 | 
18F2 | 
18F6 | 
18F8 | 
18F8 | 
18F8 | 
18F8 | 
18F8 | 
18F8 | 
18F8 | 
18F8 | 
18FE| 
1902 | 
1904 | 
1904| 
1904| 
1908 | 
190A| 
190¢| 
190¢| 
190E| 
1912| 
1914| 
1916| 
1916| 
1918 | 
191¢| 
1920| 
1922| 
1924| 
192A| 
192E| 
1930| 
1934| 
1936| 
1936| 
1938 | 
193A| 
1940| 
1944| 
1946| 
194a| 
194¢c| 


C044 
BO041 
6706 
51CB 
4242 
4CDF 
4E75 


0238 
4278 
7C01 


4238 
6602 
5246 


7401 
6100 
6602 
5246 


4284 
6100 
41F8 
3018 
6A12 
247C 
6100 
6506 
0243 
DC43 


3018 
6A12 
247C 
6100 
6506 
0243 
DC43 


FFF4 


0009 


OOOF 
053A 


O2AF 


0126 


F9EC 
0298 


OOFC 


026E 


0003 


OOFC 
0258 


0003 


02A2 


0001 


4001 


AND D4,D0 ;mask it 

CMP D1,D0 ;match? 

BEQ.S @2 iskip if yes 

DBF D3,@1 

TST D2 ;set nonzero status if no match 
@2 MOVEM.L (SP) +,D0/D3 ;restore regs 

RTS ;exit 

. PAGE 


tex 


BOOTMENU 
ANDI.B #SOF,STATFLGS jinitialize flags 
CLR RectCnt ;clear active rectangle counter 
MOVEQ #1,D6 ;set min # of boot alternates CHG009 
; i.e., at least have lower drive 
7; to boot from 
TST.B SYSTYPE ;check system type CHGO009 
BNE.S  @10 ;Skip if Lisa 2 CHGO009 
ADDQ #1,D6 ;else incr count for upper floppy drive CHG009 
@10 MOVEQ #1,D2 ;set flag to do wait if needed RM011 
BSR CHKPROFILE ;go check for attached Profile 
BNE.S @1 ;skip if not there 
ADDQ #1,D6 ;else bump boot count 
@1 CLR.L D4 ;set flag for no status check 
BSR RDSLOTS ;go scan the I/O slots 
LEA IO1ID ,AO ;check results 
MOVE (AO) +,D0 ;read first ID 
BPL.S @2 ;skip if not bootable or not there 
MOVE.L #SLOT1L,A2 ;set slot address 
BSR RDSLT ;go check if any icons 
BCS.S @2 ;skip if any error 
ANDI #$03 ,D3 ;else clear don't care bits (max count = 2) 
ADD D3 ,D6 ;and add to icon count 
@2 MOVE (AO) +,D0 ;check slot 2 
BPL.S @3 ;skip if not bootable 
MOVE.L #SLOT2L,A2 ;set slot address 
BSR RDSLT ;go check if any icons 
BCS.S @3 ;skip if any error 
ANDI #$03 ,D3 ;else clear don't care bits (max count = 2) 
ADD D3 ,D6 ;and add to icon count 
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194C| 3018 @3 MOVE (AO) +,D0 ;check final slot 

194E| 6A12 BPL.S @4 

1950| 247C OOFC 8001 MOVE.L #SLOT3L,A2 ;set slot address 

1956| 6100 0242 BSR RDSLT ;go check if any icons 

195A| 6506 BCS.S @4 ;skip if any error 

195c| 0243 0003 ANDI #503 ,D3 ;else clear don't care bits (max count = 2) 
1960| DC43 ADD D3 ,D6 ;and add to icon count 

1962 | 

1962 | ; set starting icon display address according to boot count 

1962 | 

1962| OCO6 000A @4 CMP .B #10,D6 ;max of 10 icons in menu 

1966| 6F02 BLE.S @5 ;skip if OK 

1968| 7COA MOVEQ  #10,D6 ;else set max count 

196A| 

196A| ; now display blank boot icon menu 

196A| 7012 @5 MOVEQ #BMENUWIDTH,DO ;set menu parameters 

196C| 2206 MOVE.L D6,D1 ;get count of entries 

196E| C2FC 0022 MULU #BMENULEN , D1 ;length depends on number of entries 
1972| 47FA 2524 LEA STRIMSG ,A3 ;set menu heading 

1976| 6100 OE58 BSR DSPMENUBOX ;and go display the menu 

197A| 31FC O5A2 0530 MOVE #MENUSTRT ,MenuBase ;setup base menu address 

1980| 31FC 0658 0532 MOVE #MENUIMSG ,IconAddr ;and display pt for first entry 
1986 | 

1986 | ; next fill in the menu entries with icons and alternate keycodes 
1986 | ; DO set with system type 

1986 | ICONCHK 

1986| 1038 O2AF MOVE.B SYSTYPE,DO ;read system type CHG009/CHG029 
198A| 6714 BEQ.S @1 ;skip if Lisa 1.0 CHG009 
198C| OCOO 0003 CMP.B #3,D0 ;else check if internal disk CHG009/CHG029 
1990| 661C BNE.S @2 ;skip if not - no upper icon CHG009/CHG029 
1992 | 

1992| 4282 CLR.L D2 ;else set for no wait CHGO09 
1994| 6100 OOAO BSR CHKPROFILE ; and check if integral disk CHG009 
1998 | ; installed CHG009 
1998| 6614 BNE.S @2 ;skip if not CHG009 
199A| 45FA 213E LEA UPPER , A2 ;set icon ptr for integral disk CHG009 
199E| 6006 BRA.S @3 jand go display CHG009 
19A0 | 

19A0| 45FA 217C @1 LEA DRIVEN , A2 ;set icon ptr for drive CHG009 
19A4| 7201 MOVEQ #1,D1 ;set drive id # CHG009 
19A6| 7400 @3 MOVEQ #TWIG1,D2 ;set id code CHG009 
19A8| 76FF MOVEQ #-1,D3 ;set compressed icon indicator 

19AA| 6100 OO0E8 BSR DSPMNTRY ;display the entry 

19AE | 

19AE| 45FA 216E @2 LEA DRIVEN , A2 ;set icon ptr for drive CHGO09 
19B2| 7202 MOVEQ #2,D1 ; and drive id # CHG009 
19B4| 7401 MOVEQ #TWIG2 ,D2 ;set id code 


tex 
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19B6| 76FF MOVEQ #-1,D3 ;set compressed indicator 

19B8| 6100 OODA BSR DSPMNTRY ;display the entry 

19BC | 

19BC| 4282 CLR.L D2 ;set flag for no wait RM011 

19BE| OCOO 0003 CMP.B #3,D0 ;skip check if internal disk CHG009/CHG029 
19C2| 6712 BEQ.S SCNSLTS ; CHG009/CHG029 
19C4 | 

19C4| 6100 0070 BSR CHKPROFILE ;else check if external disk attached 

19C8| 660C BNE.S SCNSLTS ;skip if not 

19CA| 45FA 20D3 LEA PROICON , A2 ;else set icon ptr for Profile 

19CE| 7402 MOVEQ #PROFILE,D2 ;set id code 

19D0| 76FF MOVEQ #-1,D3 ;set compressed indicator 

19D2| 6100 O00CO BSR DSPMNTRY ;display the entry 

19D6 | 

19D6 | ; check for bootable devices in slots (what a pain!) 

19D6 | 

19D6| 4280 SCNSLTS CLR.L DO ;clear for use 

19D8| 41F8 0298 LEA IO1ID ,AO ;set ptr for slot id 

19DC| 3018 MOVE (AO) +,D0 iget id 

19DE| 6A0E BPL.S CHKS2 ;skip if not bootable or not there 

19E0O| 247C OOFC 0001 MOVE.L #SLOT1L,A2 ;else set slot address 

19E6| 7201 MOVEQ #1,D1 ;set slot # for generic display if no ROM icon 
19E8| 7403 MOVEQ #1IO1PORT1 ,D2 ;set base boot id for slot 

19EA| 6100 0158 BSR CHKSLOT ;go check slot and display icons 

19EE | 

19EE| 3018 CHKS2 MOVE (AO) +,D0 ;read next id 

19F0| 6A0E BPL.S CHKS3 ;skip if not bootable or not there 

19F2| 247C OOFC 4001 MOVE.L #SLOT2L,A2 ;else set slot address 

19F8| 7202 MOVEQ #2,D1 ;set slot # for generic display 

19FA| 7406 MOVEQ #1I02PORT1,D2 ;set base boot id for slot 

19FC| 6100 0146 BSR CHKSLOT ;go check slot and display icons 

1A00 | 

1A00| 3018 CHKS3 MOVE (AO) +,D0 ;read slot 3 id 

1A02| 6A10 BPL.S  WT4BOOT ;skip if not bootable or not there 

1A04| 247C OOFC 8001 MOVE.L #SLOT3L,A2 ;else set slot address 

1A0A| 7203 MOVEQ #3,D1 ;set slot # for generic display 

1A0C| 343C 0009 MOVE #1I03PORT1 ,D2 ;set base boot id for slot 

1A10| 6100 0132 BSR CHKSLOT ;go check slot 3 and display icons 

1A14| 

1A14| PSS SSS SSS Sa SSeS SS 3 SS $$ SSS Se sa SS 5S S58 S535 8 25555-55555 
1A14 | ; Menu displayed - now wait for operator selection 

1A14| PRR SSS SHS SSeS Sa SS Se eS Ss SSS 
1A14| WT4BOOT 

1A14| 6100 15F8 BSR CursorDisplay ;display cursor on screen 

1A18| O8F8 0005 02A2 BSET #CHKCMD,STATFLGS ;set flag for CMD key check 

1A1E| 6100 1226 BSR GETINPUT ;goO wait for user input 

1A22| 6500 OCC2 BCS GETERR ;skip if error 
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1A26| 
1A2A| 
1A2E | 
1A32 | 
1A36| 
1A36 | 
1A36| 
1A36| 
1A36| 
1A36| 
1A36| 
1A36| 
1A36| 
1A36| 
1A36| 
1A36 | 
1A36| 
1A3A| 
1A3E | 
1A40| 
1A40| 
1A44| 
1A46| 
1A48 | 
1A4A| 
1A4C| 
1A4C| 
1A4E| 
1A52 | 
1A56| 
1A5A| 
1A5E| 
1A62 | 
1A64 | 
1A66| 
1A66| 
1A6A| 
1A6E | 
1A70| 
1A70| 
1A76| 
1A78 | 
1A7A| 
1A7A| 
1A7C| 
1A80| 
1A84 | 


6100 
6100 
6100 
6000 


48E7 
6100 
664E 


6100 
4A00 
671E 
4A02 
6740 


4280 
6100 
6100 
48E7 
6100 
4CDF 
4A00 
661E 


0210 
6100 
660A 


0C28 
6702 
7052 


7600 
6100 
6100 


F836 
15BE 
16AA 
FCB2 


AA80 
O5B4 


O6F0 


0456 
06D6 
8080 
167E 
0101 


OOEF 
0690 


0001 


0690 
06A0 


0078 


; Routine to check for Profile 


XLATE 
CursorHide 
CLRDESK 
BOOTCHK 


;translate and save boot id 
;remove cursor from screen 
;clear desktop 

;and go start boot 


attached to built-in parallel port. 


; Checks for Profile connected (OCD) and tries an initial handshake to 
; ensure the device is a Profile. 


; Inputs: D2 = 


nonzero if full wait for Profile ready should be done 
; Outputs: Zero condition code bit cleared if error 


CHKPROFILE 
MOVEM.L AO/D0/D2/D4/D6,- (SP) ;Save regs 
BSR PROINIT ;init for Profile access 
BNE.S @9 ;skip if not attached 
BSR WENBSY3 ;wait for not busy 
TST.B DO ;check return code 
BEQ.S @0 ;skip if OK 
TST.B D2 ;do full wait? 
BEQ.S @7 ;skip if not 
CLR.L DO ;else reset error code for retry 
BSR WAITALRT ;output wait alert 
BSR WENBSY2 ;try wait for normal profile boot time 
MOVEM.L AO/DO,- (SP) ;Save regs 
BSR CLRDESK ;clear desktop 
MOVEM.L (SP)+,A0/D0 ;restore regs 
TST.B DO 
BNE.S @8 7exit if still not ready 
@0 ANDI.B #SEF,ORB2 (AO) ;set command = true 
BSR WFBSY ;then get initial Profile response 
BNE.S @l ;skip if error 
CMPI.B #1,PORTA2 (AO) ;check for expected '01' response 
BEQ.S @1 ;skip if OK 
MOVEQ #BADRSP , DO ;else set error code 
@1 MOVEQ #0 ,D3 ;send '0' response to reset Profile 
BSR SENDRSP 
BSR WENBSY ;wait until command taken 


tex 


RM011 
RMO000 
RM011 


RM011 


CHG019 


RM016 
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1A84 | 
1A88 | 
1A8C | 
1A8C | 
1A8E | 
1A8E | 
1A92 | 
1A94 | 
1A94 | 
1A94 | 
1A94 | 
1A94 | 
1A94 | 
1A94 | 
1A94 | 
1A94 | 
1A94 | 
1A94 | 
1A94 | 
1A94 | 
1A94 | 
1A98 | 
1A9A| 
1A9E | 
1AA2 | 
1AA4 | 
1AA8 | 
1AAA | 
1AAA | 
1AAA | 
1AAA | 
1AAA | 
1AAA | 
1AAA | 
1AAA | 
1AAA | 
1AAA | 
1AAA | 
1AAA | 
1AAA | 
1AAA | 
1AAA | 
1AAA | 
1AAA | 
1ARE | 
1ARE | 
1ARE | 


4228 0018 
0010 0018 


4240 


4CDF 0155 
4E75 


48E7 8040 
3002 
6100 FE14 
3278 0530 
6106 
4CDF 0201 
4E75 


48E7 F8A4 


es CLR.B  DDRA2(A0) 
ORI.B #$18,ORB2 (AO) 


;set port A bits to input 
;and set dir=in, cmd=false 


Q@7 TST DO ;set return code 
@9o MOVEM.L (SP)+,A0/D0/D2/D4/D6 ;restore 
RTS ; and exit 


; Subroutine to invoke display of boot menu entry 


; Inputs: 

; D2 = boot id 

; A2 = ptr to icon 
; Outputs: 


4 Location MenuBase updated with address for next menu "box" 


; Side Effects: 


DSPMNTRY 
MOVEM.L DO/A1,- (SP) 
MOVE D2,D0 
BSR EXPAND 
MOVE MenuBase ,Al1 
BSR.S ICONMENU 
MOVEM.L (SP)+,D0/A1 
RTS 


; Subroutine to display icon menu on screen. 


; table" as entries are made. 


;save boot id and addr ptr 

;get boot id 

7go convert boot id to keycode 
;get address for display of entry 
;go display in menu 

;restore boot id and addr ptr 
jand exit 


; Inputs: 

iy DO = alternate keycode 

, D3 = compressed icon indicator 

; Al = address for start of next menu "box" 
i A2 = ptr to icon 

; Outputs: 


: Al = ptr for display of next menu entry 


; Side Effects: 
; None 


ICONMENU 


MOVEM.L DO-D4/A0/A2/A5, 


~- (SP) 


; first save icon coordinates in active rectangle table 


Creates "active rectangle 


RM011 


tex 
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1AAE | 
1AB2 | 
1AB4 | 
1AB8 | 
1ABA| 
1ABC | 
1AC0 | 
1AC4 | 
1AC6 | 
1AC6 | 
1AC6 | 
1AC6 | 
1ACA| 
1ACE | 
1AD2 | 
1AD6| 
1AD6| 
1ADA| 
1ADC| 
1AEO | 
1AE4 | 
1AE8 | 
1AE8 | 
1AE8 | 
1AE8 | 
1AEA | 
1AEE | 
1AFO | 
1AF4 | 
1AF6| 
1AF8 | 
1AFC| 
1AFC| 
1B00| 
1B02 | 
1B04 | 
1B06| 
1B0A| 
1B0C | 
1B0C | 
1B10| 
1B10| 
1B10| 
1B10| 
1B14 | 
1B18 | 
1B1A| 


41F8 
3410 
C4EC 
D442 
5258 
3180 
6100 
3800 


6100 
CCEC 
3186 
3185 


303C 
DC40 
3186 
0645 
3185 


9DCE 
3C78 
224E 
DDF8 
4A03 
6A14 
6100 


41FA 
B5C8 
660C 
2A49 
6100 
6004 


6100 


D2FC 
6100 
4240 
6100 


053A 


0005 


2000 
0C58 


193E 
0008 
2002 
2004 
0090 
2006 


0022 
2008 


0532 


0110 


1AE8 


2020 


195c 


1916 


0445 
18F0 


1C1E 


LEA RectTable ,AO 
MOVE (AO) ,D2 

MULU #5 ,D2 

ADD D2 ,D2 

ADDQ #1, (AO) + 
MOVE DO,0(A0,D2 .W) 
BSR KeyToAscii 
MOVE DO,D4 


;get ptr to active rect table 
;get current count of rect's 
;£five entries per rect 
;double for word index 

;incr for new rect 

;save keycode id for new rect 
;convert keycode to Ascii 
;save for later display 


; compute X,Y pixel coordinates from starting address 


BSR GETROWCOL 
MULU #8 ,D6 

MOVE D6,2(AO,D2.W) 
MOVE D5,4(AO,D2.W) 


MOVE #<MENUWIDTH* 8>,D0 


ADD DO ,D6 
MOVE D6,6 (AO ,D2.W) 


ADD #<ICONHIGH+2>,D5 


MOVE D5,8(A0 ,D2.W) 
7 now do icon display 


SUBA.L A6,A6 
MOVE IconAddr ,A6 
MOVE.L A6,A1 
ADD.L SCRNBASE ,A6 


TST.B D3 
BPL.S @1 
BSR DSPICON 
LEA DRIVEN , AO 
CMPA.L AO,A2 
BNE.S @2 
MOVE.L A1,A5 
BSR DSPNUM 
BRA.S @2 

@1 BSR DSPRGICON 


;get pixel row, byte col 
;convert to pixel col 
;save upper left X 

; and Y coordinates 


;compute and save 
; lower Y coordinate 
;compute and save 
; lower X coordinate 


;clear for use 

;get address for icon display 
;save for later use 

;convert to screen address 
;check for compressed icon 
;skip if not 

;go do display 


;displaying drive? 

;skip if not 

;else set icon display address 
; and display with id # 


;skip to continue 


;display an uncompressed icon 


; now display the alternate keycode 


@2 ADD #ALTKYADDR,A1 
BSR GETROWCOL 
CLR DO 
BSR DSPVAL 


;set starting display pt 
;convert to row, col 
;first display the apple 


;width in pixels of menu entry 


CHG009 
CHG009 
CHG009 
CHG009 
CHG009 
CHG009 


CHG008 
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1B1E| 3004 MOVE D4,D0 ;get Ascii char 

1B20| 6100 1C18 BSR DSPVAL ;and display it 

1B24| 

1B24 | ; finally compute the next menu entry and icon display address 
1B24| 

1B24| 3278 0530 @3 MOVE MenuBase ,Al1 ;get base address for the entry 
1B28| D2FC OBF4 ADD #BMenuSpc ,A1 ;space to next col 

1B2C| 31C9 0530 MOVE Al ,MenuBase ;and save for next entry 

1B30 | 

1B30| 3278 0532 MOVE IconAddr ,A1 ;else get this icon's address 
1B34| D2FC OBF4 ADD #BMenuspc , Al ;and bump to next spot in column 
1B38| 31C9 0532 MOVE Al ,IconAddr ;and do update 

1B3C| 6000 BRA.S @4 

1B3E | 

1B3E| 4CDF 251F @4 MOVEM.L (SP)+,D0-D4/A0/A2/A5 

1B42| 4E75 RTS 

1B44 | Pa ee ee nn nO SE ee 
1B44 | ; Routine to check slots for icons and do display or do generic display. 
1B44 | ; Inputs: 

1B44| 7 DO = card id 

1B44| : D1 = slot # 

1B44| ; D2 = first boot id for slot 

1B44 | : Al = address for icon display 

1B44| o A2 = slot address 

1B44 | ; Outputs: 

1B44 | 7 Returns with carry bit set if error. 

1B44| ; Side Effects: 

1B44 | 7 None 

1B44 | Perms CSS SS Sess SSS See ae ser ee esses 
1B44| 

1B44| 48E7 F8EO CHKSLOT MOVEM.L DO-D4/A0-A2,-(SP) ;save regs 

1B48| 0800 O00D BTST #ICBIT,DO ;icon available? 

1B4C| 661A BNE.S §CHKICONS ;skip if yes 

1B4E | 

1B4E | ; no icons available - display slot # and display generic slot card icon 
1B4E| 45FA 1EC4 LEA XCARD ,A2 ;point to generic icon 

1B52| 76FF MOVEQ #-1,D3 ;set compressed flag 

1B54| 3278 0532 MOVE IconAddr ,A1 ;get display address for later use 
1B58| 6100 FF3A BSR DSPMNTRY ;go display entry 

1B5C| 45FA 1EB6 LEA XCARD ,A2 ;set icon ptr 

1B60| 2A49 MOVE.L A1,A5 ;get icon address 

1B62| 6100 1900 BSR DSPNUM ;display slot # 

1B66| 602C BRA.S CHKSXIT jand exit 

1B68 | 

1B68 | ; Slot has icon - read ROM and get ptr to desired icon 

1B68 | 

1B68 | CHKICONS 


tex 
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1B68 | 
1B6A| 
1B6C| 
1B72 | 
1B74 | 
1B78 | 
1B7A| 
1B7C| 
1B7E| 
1B80| 
1B84 | 
1B84 | 
1B86| 
1B88 | 
1B8A | 
1B8C | 
1B8E | 
1B90| 
1B94 | 
1B94 | 
1B98 | 
1B9A| 
1B9A | 
1B9A | 
1B9A| 
1B9A| 
1B9A| 
1B9A| 
1B9A| 
1B9A | 
1B9A| 
1B9A| 
1B9A| 
1B9E | 
1BA2 | 
1BA4 | 
1BA6 | 
1BAA | 
1BAC| 
1BAC | 
1BAE | 
1BB4 | 
1BB8 | 
1BBE | 
1BCO | 
1BC2 | 
1BC4 | 


6130 
6528 
227C 
2803 
0244 
204A 
3218 
2449 
D4c1 
6100 


5344 
670C 
3218 
5242 
2449 
D4c1 
6100 


4CDF 
4E75 


48E7 
0800 
6720 
4284 
6100 
651A 


4283 
3639 
08Cc3 
247C 
D5C3 
161A 
6002 


0001 FFFC 


0003 


FF12 


FFO2 


O71F 


A000 
000D 


0624 


0002 0004 
0000 
0001 FFFC 


BSR.S  RDSLT ;go read slot 

BCS.S CHKSXIT ;exit if error 

MOVE.L #ADR128K-4,A1 ;set base address of I/O slot ROM code 
MOVE.L D3,D4 ;save icon count 

ANDI #503 ,D4 ;isolate count (max = 2) 
MOVE.L A2,A0 ;get code ptr 

MOVE (AO) +,D1 ;get icon offset 

MOVE.L A1,A2 ;get base address 

ADD D1 ,A2 ;add offset to set up icon ptr 
BSR DSPMNTRY ;display as menu entry 

SUBQ #1,D4 ;more than one icon? 

BEQ.S CHKSXIT ;skip if not 

MOVE (AO) +,D1 ;else get ptr to second icon 
ADDQ #1,D2 ;bump boot id ptr for slot 
MOVE.L A1,A2 ;restore base address 

ADD D1 ,A2 ;set up icon address 

BSR DSPMNTRY ;display as menu entry 


CHKSXIT MOVEM.L (SP)+,D0-D4/A0-A2 ;restore regs and exit 
RTS 


; Routine to read I/O slot ROM's and get icon count if any. 


; Expects DO = boot id 
? A2 = slot address 
; Returns D3 = icon count 
; A2 = address of ptr to first icon if more than one 
RDSLT MOVEM.L DO/D2,- (SP) ;save boot id's 
BTST #ICBIT,DO ;any icons stored in ROM? 
BEQ.S @2 ;skip if none 
CLR.L D4 ;set flag for no status check 
BSR RDIOSLT ;and go read ROM on slot 
Bcs.S @1 ;skip if error 
CLR.L D3 ;clear for use 
MOVE ICONPTR, D3 ;get icon ptr 
BSET #0 ,D3 ;must be odd address 
MOVE.L #ADR128K-4,A2 ;set base address 
ADD.L D3 ,A2 ;set actual address 
MOVE.B (A2)+,D3 ;xread icon count 
BRA.S @1 


tex 
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1BC4| 7601 @2 MOVEQ #1,D3 ;set default icon count 

1BC6 | 

1BC6| 4CDF 0005 @1 MOVEM.L (SP)+,D0/D2 ;restore boot id's 

1BCA| 4E75 RTS 

1BCC | . ENDC ; {USERINT} 

1BCC | . PAGE 

1BCC | Le ee eee SSB SSeS ear g sess r sess => 
1BCC | ; Do default boot from Twiggy specified drive. 

1BCC | ; Assumes regs: 

1BCC | : DO = drive # 

1BCC | ; Following assumptions are made for power-up status: 

1BCC | 4 1) No interrupt from disk unless diskette inserted or button pushed 
1BCC | a a am a a a 
1BCC | 

1BCC| 47FA F5B8 TWGBOOT LEA DSKVCT , A3 ; first set up bus error vector 
1BD0| 21CB 0008 MOVE.L A3,BUSVCTR 

1BD4 | 

1BD4 | .IF USERINT = 0 

1BD4 | . ELSE 

1BD4| 11C0O 0535 MOVE.B DO,DRIVE ;save drive id 

1BD8| 6100 02CC BSR WAITALRT ;display wait icon 

1BDC | . ENDC 

1BDC | 

1BDC| 207C OOFC C001 MOVE.L #DISKMEM,AO ; set ptr to controller memory 
1BE2| 227C 0001 FFF4 MOVE.L #TWGHDR,A1 ; set ptr to load header 

1BE8| 247C 0002 0000 MOVE.L #TWGHDR+12 ,A2 ; and ptr to load data 

1BEE| 4281 CLR.L D1 ; set drive/side/sector/track ptr 
1BF0| 0280 0000 OOFF ANDI.L #SOOFF,DO ; mask off junk 

1BF6 | 

1BF6| 4A40 TST DO ;enable only drive selected 
1BF8| 6608 BNE.S @1 

1BFA| 117C 0008 0002 MOVE.B #$08,CMD(A0) ;enable drive #1 

1C00| 6006 BRA.S @2 

1C02| 117C 0080 0002 @1 MOVE.B #$80,CMD(A0) ;enable drive #2 

1C08 | 

1C08| E098 @2 ROR.L #8 ,DO ; get actual drive desired 

1COA| 8280 OR.L DO,D1 ; and save for shared mem format 
1C0C | 

1cOC| 10BC 0086 MOVE.B #ENBLINT, (AQ) ;go do enable 

1€10| 6100 01F2 BSR CMDCHK ;wait until cmd taken 

1C14| 6500 0082 BCS DSKTIMERR ;skip if timeout error 

1C18| 267C OOFC DD81 MOVE.L #VIA1BASE,A3 ;else enable 

1C1E| O8AB 0004 0004 BCLR #FDIR,DDRB1(A3) ; FDIR 

1C24 | 

1C24| : BTST #FDIR, (A3) ;FDIR present? 

1C€24| o BEQ.S DOREAD ;skip if no to do read 

1C24 | 


tex 
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1024 | 
1¢28 | 
1C2C | 
1c2C | 
1c2C | 
1C2C | 
1c2C | 
1c2C | 
1c2C | 
1c2C | 
1C2E| 
1€32 | 
1034 | 
1038 | 
1C3C | 
1C3E| 
1C3E| 
1042 | 
1046 | 
1048 | 
1048 | 
1048 | 
1048 | 
1c4c| 
1C4E| 
1C52 | 
1¢54| 
1056 | 
1C58 | 
1c5¢| 
1C5E| 
1C5E| 
1C5E| 
1062 | 
1C66 | 
1C68 | 
1C6A| 
1C6C| 
1C6C | 
1cé6C | 
1C6C| 
1c6C| 
1C6C| 
1C70| 
1074 | 
1C78 | 
1c7¢C| 


6100 
6500 


4240 
6100 
640A 
0co0 
6700 
600A 


3029 
0c40 
6724 


123C 
4240 
6100 
6546 
4201 
4240 
6100 
653C 


3029 
0c40 
6704 
7026 
602E 


42B8 
STFA 
4OFA 
6100 
247C 


024C 
006E 


0140 
0027 
0060 


0004 
AAAA 


0001 


0120 


0116 


0004 
AAAA 


01B4 
009C 
009E 
0236 
0002 0000 


CLRINT BSR CLRFDIR 
BCS DSKTIMERR 
. PAGE 


DOREAD 
CLR DO 
BSR TWGRD 
Bcc.S @1 
CMP.B #TIMOUT,DO 
BEQ DSKCHK 
BRA.S RDRETRY 

@1 MOVE FILEID (Al) ,DO 
CMP #BOOTPAT ,DO 
BEQ.S RDSCTR1 


; Do retry by reading track 1 to 


7; vetry reading track 0 
RDRETRY MOVE.B #1,D1 


CLR DO 

BSR TWGRD 
BCS.S DSKCHK 
CLR.B D1 

CLR DO 

BSR TWGRD 
BCS.S DSKCHK 


;Clear interrupts 
;exit if timeout error 


set speed value 
go read sector 0 
skip if OK 
timeout error? 
exit if yes 

else go do retry 


else get file ID 
is it a boot file? 
skip if yes 


tex 


RMOO00 


try to get head properly aligned, then 


set for track 1 

set speed value 

go do read 

exit if second error 
else retry track 0 
set speed value 

go do read 

exit if error 


7 Now check again for a valid boot track 


MOVE FILEID (Al) ,DO 
CMP #BOOTPAT ,DO 
BEQ.S RDSCTR1 
MOVEQ #BADTHDR,DO 
BRA.S DSKCHK 
RDSCTR1 
.IF NEWIWIG = 0 
.ENDC 
CLR.L BOOTDATA 
LEA DSKERR2 , A3 
LEA DSKERR3 ,A4 
BSR VCTRINIT 


MOVE.L #TWGDATA,A2 


, 
, 
, 
, 


, 


; get file ID 
; is it a boot file? 


skip if yes 


; set error code 
; and exit 


;set for no error 


;set up vectors in case of bad diskette 


;set data ptr (software view) 


RMOO00 


RMO00 
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1C82 | 
1C82 | 
1C82 | 
1C82 | 
1C82 | 
1€86 | 
1C8A| 
1C8E | 
1¢92 | 
1096 | 
1098 | 
1098 | 
1098 | 
1098 | 
1098 | 
1098 | 
1098 | 
1098 | 
1C9A| 
1C9E | 
1CA2 | 
1CA4 | 
1CA8 | 
1CAA| 
1CAA| 
1CAA| 
1CAA| 
1CAA| 
1CB0 | 
1CB0 | 
1CB0 | 
1CB6 | 
1CBC | 
1CBC | 
1CBC | 
1c¢Cc0 | 
1C¢Cc0 | 
1CC4 | 
1CC4 | 
1C€C8 | 
1CC8 | 
1C€C8 | 
1CC8 | 
1CCC | 
1cbD0 | 
1CD4 | 
1CD6 | 


48E7 
6100 
6100 
4238 
4CDF 
4ED2 


7027 
11C0 
0co0 
6720 
6100 
6512 


11E8 


11E8 


11E8 


6100 


6100 


6100 


6100 
1038 
0c00 
6614 


8080 
EE22 
EE38 
02B0 
0101 


01B4 
0027 


01cc 


OOBA 01B6 


00c4 


0058 


0198 


0084 


EAI1C 


0092 
01B4 
0007 


01B5 
01B7 


; Do keyboard/mouse reset before continuing boot process 


STRTBOOT 
MOVEM.L AO/DO,- (SP) ;save regs 
BSR RSTKBD ;send reset signal 
BSR CLRRST ;then clear it 
CLR.B  KBDQ ;clear first byte of keyboard queue 
MOVEM.L (SP)+,A0/D0 ;xrestore regs 
JMP (A2) ;and away we go ... 
. PAGE 


DSKTIMERR 
MOVEQ #TIMOUT,DO ;set timeout error code 
DSKCHK MOVE.B DO0O,BOOTDATA ;save the error status 
CMPI.B #TIMOUT,DO ; timeout? 
BEQ.S DSKERR ;skip if yes 
BSR CLRFDIR ;ensure intrpt cleared 


DSKBAD 


DSKOUT 


DSKDIS 


DSKERR 


BCS.S DSKOUT ;exit if error 
.IF USERINT = 0 
. ENDC 


MOVE.B CHKCNT(A0O) ,BOOTDATA+2 ; and data checksum count 


.IF NEWIWIG = 1 

MOVE.B CHKCNT2 (AO) ,BOOTDATA+1 ; and address checksum count 
MOVE.B RTRYCNT(AO) ,BOOTDATA+3 ; and retry count 

. ENDC 


BSR EJCTDSK ;then eject the disk 

BSR DSABLDSK ;disable both drives 

BSR SETBUSVCT ; restore default bus error vector 
.IF USERINT = 0 

. ELSE 

BSR CHKDRIVE ;go determine drive 

MOVE.B BOOTDATA,DO ;get error code 

CMP .B #NODISK , DO ;no disk error? 

BNE.S @1 ;skip if not 


RMOO00 


tex 
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1cD6 | 
1cD6 | 
1cD6 | 
1CDA| 
1CDE | 
1CE2 | 
1CE6 | 
1CEA | 
1CEA | 
1CEE | 
1CFO | 
1CF4 | 
1cF6 | 
1CFA | 
1CFC | 
1CEC | 
1D00| 
1D02 | 
1D02 | 
1D06| 
1D0A| 
1D0A| 
1D0A| 
1D0A| 
1D0A| 
1D0A| 
1D0E | 
1D0E | 
1D0E | 
1D0E | 
1D0E | 
1D0E | 
1D0E | 
1D12 | 
1D14| 
1D14| 
1D14| 
1D14| 
1D18 | 
1D1A| 
1D1A| 
1D1C| 
1D1C| 
1D1C| 
1D20| 
1D24 | 
1D28 | 


45FA 
6100 
3A7C 
6100 
6000 


0co0 
670C 
0co00 
6706 
0co0 
6606 


6100 
6008 


45FA 
6100 


6000 


4OFA 
6008 


4OFA 
6010 


60A0 


31DF 


21DF 
31DF 


1E7E 
1850 
287E 
1780 
0256 
0017 
0026 


004B 


1752 


1C47 
17D2 


022E 


0004 


0004 


0280 
0282 
0286 


@1 CMP. 


nonoow 


@2 BSR 


@3 LEA 


TBOOTERR 


INSERTD , A2 
DSPALRTICON 
#ERRSTRT,A5 
DSPNUM 
BFAIL2 


IOBRD ,A2 
DSPERRICON 


.IF USERINT = 0 


. ELSE 
BRA 
. ENDC 


BOOTFAIL 


;2 statements deleted 


;set icon for insert rqst 
;display basic icon 

jset display pt for id # 
; and display it 

;then go signal user 


;xread error? 
iskip if yes 
;bad file id? 


;boot error? 
;skip if not 


;display diskette icon with id # 
jand exit 


;error must be on I/O board 
;display icon 


;and go signal boot failure 


; Handler for Twiggy boot errors 


CHG009 


CHG009 
CHG009 
CHG009 
CHG009 


DSKERR2 BSRS4 


# LEA 
# BRA.S 
#@1 
DSKERR3 BSRS4 
# LEA 
# BRA.S 
#@1 
BRA.S 
SAVEXCP 
MOVE 
MOVE. L 
MOVE 
RTS4 


SAVEXCP 
@1,A4 
SAVEXCP 


BTERR 
@1,A4 
BTERR 


DSKOUT 
(SP) +, EXCFC 


(SP) +,EXCADR 
(SP) +,EXCIR 


;go save exception info 


; regroup 


jand display error 


;save function code 
;and address 
jand instruction reg 


tex 


6 <7 Computer Boot ROM 2.48 Listing ¢ 136 of 265 


1D28| 4ED4 # JMP (A4) 

1D2A| 

1D2A| 31DF 0288 BTERR MOVE (SP) +,EXCSR ;save status reg 

1D2E| 21DF 028A MOVE.L (SP)+,EXCPC ;and pe 

1D32| 6100 E306 BSR SAVEREGS ;save regs 

1D36| 3E7C 0480 MOVEA #STKBASE,SP ;reset stack pointer 

1D3A| 6100 E970 BSR SETVCTRS ;reinit vectors 

1D3E| 704B MOVEQ #EBOOT,DO ;set boot error 

1D40| 11C0O 01B4 MOVE.B DO,BOOTDATA jand save 

1D44| RTS4 

1D44| 4ED4 # JMP (A4) 

1D46| 

1D46| fe ee ee ee ee eee 
1D46| ; Subroutine to disable interrupts from both Twiggy drives 
1D46| ; Inputs: 

1D46| : None 

1D46| ; Outputs: 

1D46| 3 Carry bit set if timeout error (in CMDCHK). 

1D46| ; Side Effects: 

1D46| : AO trashed (other regs trashed in CMDCHK) 

1D46| a aa a aaa aa ea a hla a at 
1D46| 

1D46| DSABLDSK 

1D46| 207C OOFC C001 MOVE.L #DISKMEM,AO ;set ptr to shared memory 
1D4C| 117C 0088 0002 MOVE.B #$88,CMD(A0) ;disable ints from both drives 
1D52| 10BC 0087 MOVE.B #DSABLINT, (AO) 

1D56| 6100 OOAC BSR CMDCHK ;wait for command to be taken 
1D5A| 4E75 RTS ;then return 

1D5C | 

1D5C | Ro eee ee ee ee ae pen pe ee a oe ea ee eee 
1D5C | ; Subroutine to determine drive # in error and get icon ptr 
1D5C | ; Inputs: 

1D5C| ; Location DRIVE = drive id # (0 or $80) 

1D5C | ; Outputs: 

1D5C | ; A2 = ptr to diskette icon 

1D5C | it D1 = id # 

1D5C| ; Side Effects: 

1D5C| ; None 

1D5C | a caw aa os ee a ar ua ela ea a ea 
1D5C | 

1D5C| CHKDRIVE 

1D5C| 45FA 1FCO LEA DISKETTE ,A2 ;set ptr for diskette icon 
1D60| 1238 0535 MOVE.B DRIVE,D1 ;get drive id 

1D64| 4A01 TST.B D1 ; drive #1? 

1D66| 6604 BNE.S @1 ; skip if no 

1D68 | 

1D68 | .IF USERINT = 0 


tex 
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1D68 | 
1D68 | 
1D6A| 
1D6A| 
1D6A| 
1D6C| 
1D6C | 
1D6C | 
1D6C | 
1D6E| 
1D6E| 
1D6E | 
1D70| 
1D70| 
1D70| 
1D70| 
1D70| 
1D70| 
1D70| 
1D70| 
1D70| 
1D70| 
1D70| 
1D70| 
1D70| 
1D70| 
1D70| 
1D70| 
1D70| 
1D70| 
1D76| 
1D76| 
1D76| 
1D76| 
1D7A| 
1D7A| 
1D7C| 
1D80 | 
1D84 | 
1D88 | 
1D88 | 
1D8C | 
1D8Cc | 
1D90| 
1D94| 
1D98 | 
1D9A| 


7201 


6002 


7202 


4E75 


243C 


48E7 


40E7 
007C 
6100 
03C8 


1140 


4228 
10BC 
6100 
6556 
1028 


00cO 0000 


1078 


0700 
0114 
0004 


000C 
0002 
0081 
00A8 


0010 


tex 


. ELSE 
MOVEQ #1,D1 ; else set up id code 
. ENDC 


BRA.S @2 
@1 
.IF USERINT = 0 
. ELSE 
MOVEQ #2,D1 ; else set up id code 
. ENDC 
@2 
RTS pexit 


; Read a Twiggy sector routine. Uses hardware view of the world, with 
; 12 bytes for header and 256 bytes (512 for new format) of data per sector. 
; Also assumes registers: 


iH DO = speed (for new Twiggy code) AO = disk shared memory address 

; D1 = drive/side/sector/track Al = address to load header(12 bytes) 

iy D2 = timeout for read A2 = address to load data(256 or 512 bytes) 
. D3 = scratch A3 = VIA address for FDIR 


; If error, returns with carry bit set and error code in DO. 


TWGRD 
MOVE.L #FDIRTIME,D2 ; set default timeout value RMOO0O 
TWGREAD 
.IF TWIGGY = 1 
MOVEM.L D3/A1-A4,-(SP) ; save regs 
DISABLE ; disable interrupts 
# MOVE SR,- (SP) 
# ORI #$0700,SR 
BSR CHKFDIR ;ensure no ints pending 
MOVEP.L D1,DRV(A0) ; set disk ptrs 
.IF NEWIWIG = 1 
MOVE.B DO,SPEED (A0) ;set speed value 
. ENDC 
MOVE.B #READS,CMD(A0O) ; set for read operation 
MOVE.B #EXRW, (AO) ; and go do it 
BSR CHKFIN ; wait 
BCS.S TWGOUT ; exit if timeout 
MOVE.B STAT(AO) ,DO ; get disk return code 
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1D9E| 117C 00CC 0002 MOVE.B #SCC,CMD (AO) ;clear RWTS interrupt bits 
1DA4| 10BC 0085 MOVE.B #CLRSTAT, (AQ) 

1DA8| 615A BSR.S CMDCHK ;wait until cmd taken 
1DAA| 6544 BCS.S TWGOUT ;exit if error 

1DAC| 4A00 TST.B DO ;check status code 

1DAE| 6642 BNE.S TWGERR ; and exit if error 
1DB0 | 

1DB0 | ; Read successful - transfer header and then data to main memory 
1DB0 | 

1DB0 | .IF NEWIWIG = 0 

1DB0 | . ELSE 

1DB0O| 49E8 03E8 LEA DSKBUFF(A0) ,A4 ;set address for Twiggy buffer 
1DB4| 074C 0000 XFRHDR MOVEP.L (A4) ,D3 ;load header bytes 

1DB8| 22C3 MOVE.L D3, (Al)+ 

1DBA| 074C 0008 MOVEP.L 8(A4) ,D3 

1DBE| 22C3 MOVE.L D3, (Al)+ 

1DCO| 074C 0010 MOVEP.L 16(A4) ,D3 

1DC4| 22C3 MOVE.L D3, (Al)+ 

1DC6 | 

1DC6| 49E8 0400 LEA DSKDATA(AO) ,A4 ;set address for data 
1DCA| 303C OO1F MOVE.W #31,D0 ;need to load 512 bytes 
1DCE| 074C 0000 XFRDATA MOVEP.L (A4) ,D3 ;load data bytes 

1DD2| 24C3 MOVE.L D3, (A2)+ 

1DD4| 074C 0008 MOVEP.L 8(A4) ,D3 

1DD8| 24C3 MOVE.L D3, (A2)+ 

1DDA| 074C 0010 MOVEP.L 16(A4) ,D3 

1DDE| 24C3 MOVE.L D3, (A2)+ 

1DE0| 074C 0018 MOVEP.L 24 (A4) ,D3 

1DE4| 24C3 MOVE.L D3, (A2)+ 

1DE6| D8FC 0020 ADD.W #32,A4 

1DEA| 51C8 FFE2 DBF DO,XFRDATA ;loop until done 

1DEE| 600A BRA.S TWGOK ;and go to exit 

1DF0 | 

1DF0 | . ENDC 

1DF0 | 

1DF0 | ; Error exit - set carry bit as error indicator 

1DF0 | 

1DF0O| 7027 TWGOUT MOVEQ #TIMOUT , DO ; set timeout error 

1DF2 | TWGERR ENABLE ; vestore interrupt mask 
1DF2| 46DF # MOVE (SP)+,SR 

1DF4| 003C 0001 ORI.B  #$01,CCR 

1DF8| 6004 BRA.S TWGRXIT ; and exit 

1DFA| 

1DFA | TWGOK ENABLE ; vestore interrupt mask 
1DFA| 46DF # MOVE (SP)+,SR 

1DFC| 4280 CLR.L DO ; set OK return code CHG025 
1DFE | 


tex 
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1DFE| 4CDF 1E08 


1E02 | 
1E04 | 
1E04 | 
1E04 | 
1E04 | 
1E04 | 
1E04 | 
1E04 | 
1E04 | 
1E04 | 
1E04 | 
1E04 | 
1E08 | 
1E0E | 
1E14| 
1E1A| 
1E20| 
1E22 | 
1E24 | 
1E28 | 
1E2A | 
1E2C| 
1E2E | 
1E30| 
1E32 | 
1E34 | 
1E38 | 
1E3C| 
1E3E | 
1E3E | 
1E3E | 
1E3E | 
1E3E | 
1E3E | 
1E3E | 
1E3E | 
1E3E | 
1E3E | 
1E3E | 
1E40| 
1E40| 
1E46| 
1E4A | 
1E4C| 
1E4E | 
1E50| 


4E75 


48E7 
263C 
207C 
267C 
022B 
4A10 
6714 
0813 
6606 
5383 
66F6 
6004 
5383 
66EC 
003C 
4CDF 
4E75 


2602 


267C 
0813 
6608 
5383 
66F6 
003C 


1010 

0012 0000 
OOFC C001 
OOFC D901 
OOBF 0010 


0006 


0001 
0808 


OOFC DD81 
0004 


0001 


TWGRXIT MOVEM.L (SP)+,D3/A1-A4 
RTS 


; Subroutine to check for disk 


tex 


; restore regs 
; and return to caller 


command taken. Also does check for DSKDIAG 


; in case Twiggy controller becomes busy servicing second disk drive before 


; command is seen. Loop takes 
; loop takes about 9.6 us. 


; Destroys register AO 


CMDCHK MOVEM.L D3/A3,-(SP) 
MOVE.L #CMDTIME,D3 
MOVE.L #DISKMEM,AO 
MOVE.L #VIA2BASE,A3 
ANDI.B #SBF,DDRB2 (A3) 


about 12.4 us if DSKDIAG OK, else DSKDIAG 


;Save regs 

;set timeout for about 15 secs 
;set ptr to shared memory 

;also set up to monitor DSKDIAG 


@1 TST.B (AO) ;eomd taken when byte 0'ed 
BEQ.S @2 
@3 BTST #DSKDIAG,IRB2(A3) ;check if controller not ready 
BNE.S @4 ;skip if OK 
SUBQ.L #1,D3 7else loop until timeout or ready 
BNE.S @3 
BRA.S @5 ;take error exit 
@4 SUBQ.L #1,D3 
BNE.S @1 ;loop until yes or timeout 
@e5 ORI.B #$01,CCR ;set error 
@2 MOVEM.L (SP)+,D3/A3 ;restore regs 
RTS 


; Subroutine to check for disk 
; Destroys register D3 and A3 


.IF NEWTWIG = 0 
.ENDC 

.IF NEWIWIG = 1 
MOVE.L D2,D3 


.ENDC 

MOVE.L #VIA1BASE,A3 
@1 BTST #4, (A3) 

BNE.S @2 

SUBQ.L #1,D3 

BNE.S @1 


ORI.B  #$01,CCR 


;set user-supplied timeout 


;set ptr for interface 
;FDIR? 
;exit if yes 


7;else loop 
;set error 
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1E54| 
1E56| 
1E56| 
1E56 | 
1E56| 
1E56| 
1E56| 
1E56| 
1E56| 
1E56 | 
1E56| 
1E58 | 
1E5A| 
1E60 | 
1E60 | 
1E66 | 
1E6A| 
1E6C | 
1E6E| 
1E70| 
1E72 | 
1E72 | 
1E72 | 
1E72 | 
1E72 | 
1E72 | 
1E72 | 
1E78 | 
1E7C| 
1E7E| 
1E84 | 
1E86 | 
1E8A| 
1E8C | 
1E8E| 
1E90| 
1E94 | 
1E96 | 
1E96 | 
1E96 | 
1E96 | 
1E96 | 
1E96 | 
1E9C | 
1EAO | 
1EA2 | 
1EA4 | 


4E75 


611A 
6516 
243C 


117¢C 
10BC 
61D2 
6502 
6102 
4E75 


117¢C 
10BC 
6186 
267C 
7619 
0813 
6708 
5343 
66F6 
003C 
4E75 


267C 
0813 
6702 
61CE 
4E75 


0018 0000 


0002 0002 
0081 


OOFF 0002 
0085 


OOFC DD81 


0004 


0001 


OOFC DD81 
0004 


aeteF 
@2 RTS 


; Subroutine to eject disk 
; Assumes AO = ptr to disk shared memory 


EJCTDSK 

IF NEWTWIG = 1 

BSR.S  CLRFDIR ;ensure interrupts cleared 

BCS.S @1 ;exit if error 

MOVE.L #EJCTTIME ,D2 ;set eject timeout 

. ENDC 

MOVE.B #UNCLAMP,CMD(A0) ;set up cmd 

MOVE.B #EXRW, (AO) ;go do it 

BSR.S CHKFIN ;wait for FDIR 

BcsS.S @1 iskip if error 

BSR.S  CLRFDIR ;Cclear intrpt and return 
@1 RTS 


; Subroutine to clear interrupt. Waits for FDIR to go low before return. 
; Assumes AO = ptr to disk shared memory. 


CLRFDIR MOVE.B #SFF,CMD (AO) ;clear FDIR 
MOVE.B #CLRSTAT, (AO) 
BSR.S CMDCHK ;wait until cmd taken 
MOVE.L #VIA1BASE,A3 ;then wait for FDIR to go low 
MOVEQ #25,D3 ;set timeout for about 200 us 
@1 BIST #FDIR, (A3) ;FDIR? 
BEQ.S @2 ;skip if none 
SUBQ #1,D3 7else loop until gone or timeout 
BNE.S @l 
ORI.B #01,CCR ;set error indicator 
@2 RTS 


CHKFDIR MOVE.L #VIA1BASE,A3 ;set ptr for FDIR status 


BIST #FDIR, (A3) ;FDIR present? 

BEQ.S @1 ;skip if not 

BSR.S CLREDIR ;else do clear 
@1 RTS ;and exit 
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1EA6 | 
1EA6 | 
1EA6| 
1EA6 | 
1EA6 | 
1EA6 | 
1EA6 | 
1EA6 | 
1EA6 | 
1EA6 | 
1EA6 | 
1EA6 | 
1EA6 | 
1EA6 | 
1EA6 | 
1EA6 | 
1EA6 | 
1EA6 | 
1EA6 | 
1EA6 | 
1EAA | 
1EAE | 
1EBO | 
1EBO | 
1EBO | 
1EBO | 
1EBO | 
1EBO | 
1EBO | 
1EBO | 
1EBO | 
1EBO | 
1EBO | 
1EBO | 
1EBO | 
1EBO | 
1EBO | 
1EBO | 
1EBO | 
1EBO | 
1EBO | 
1EBO | 
1EB4 | 
1EB6 | 
1EB8 | 
1EBA | 
1EBC | 


45FA 1B95 
6100 1680 
4E75 


307C 0008 
20CB 
20CB 
7214 
20CC 
5341 


.IF USERINT 
. ENDC 


i 
° 


.IF USERINT = 1 


tex 


; {USERINT} 


Subroutine to enable display of wait icon. Main entry point creates 
alert box also, secondary enrty point (DSPWTICON) invokes icon display 


only. 

Inputs: 
None 

Outputs: 
None 

Side Effects: 
A2,A3 trashed 


WAITALRT 

DSPWTICON 
LEA WAITICON ,A2 
BSR DSPALRTICON 
RTS 
. ENDC 
. ENDC 


, 


;and display wait icon 


; {USERINT} 


; {TWIGGY} 


Routine to reinit vectors before release of control to boot loader. 
Sets all vectors other than reset and interrupts to jump to the 


failing boot device handler. 


Inputs: 
A3 
a4 

Outputs: 
None 

Side Effects: 
AO/D1 trashed 


address of boot error handler for bus/address errors 
address of boot error handler for other exceptions 


, 


VCTRINIT 


@1 


MOVEA #BUSVCTR,AO 
MOVE.L A3, (A0)+ 
MOVE.L A3, (A0)+ 
MOVEQ #20,D1 
MOVE.L A4, (AO)+ 
SUBQ =‘ #1,D1 


;get ptr to vector locations RMOO0O 
;set up for bus error 

jand address error 

;# of remaining low vectors to init 

;setup handler for errors up 

; to spurious intrpt vector 
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1EBE | 
1ECO | 
1EC4 | 
1EC6 | 
1EC8 | 
1ECA| 
1ECC| 
1ECE | 
1ECE | 
1ECE | 
1ECE | 
1ECE | 
1ECE | 
1ECE | 
1ECE | 
1ECE | 
1ECE | 
1ECE | 
1ECE | 
1ECE | 
1ECE | 
1ECE | 
1EDO | 
1EDO | 
1EDO | 
1ED6| 
1EDC| 
1EDE | 
1EE4 | 
1EE6 | 
1EES8 | 
1EEC | 
1EEE | 
1EEE | 
1EEE | 
1EEE | 
1EF2 | 
1EF6 | 
1EF8 | 
1EFA | 
1EFC| 
1EFC| 
1F04| 
1F06| 
1F06| 
1F0C| 
1F10| 


66FA 
307C 
7220 
20CC 
5341 
66FA 
4E75 


61D6 


227C 
247C 
4281 
243C 
760A 
7803 
6100 
6522 


3029 
0c40 
6704 
7054 
6014 


STFA 
61AA 


247C 
6000 


0080 


0001 FFEC 


0002 0000 


0120 0000 


0086 


0004 


AAAA 


0060 


0002 0000 
FD74 


@2 


@1 
#TRPVCTO , AO 
#32,D1 

B4, (AO) + 
#1,D1 

@2 


tex 


;next do all trap vectors RMOO00 
;set count 
;and do init 


; ASSEMBLE ONLY IF PROFILE CODE NEEDED 


; Routine to boot from Profile hard disk attached to parallel port 
; Sets up input parameters and then calls READ routine. If no error 
; on return (carry not set), a jump to the loaded boot code is done. 


.IF USERINT = 0 


. ELSE 
BSR 
. ENDC 


MOVE.L 
MOVE.L 
CLR.L 
MOVE.L 
MOVEQ 
MOVEQ 
BSR 
BCS.S 


WAITALRT 


#HDRBUFR ,A1 
#HDRBUFR+20 , A2 
D1 

#STRTIME ,D2 
#RCNT ,D3 
#TCNT,D4 
PROREAD 
HDSKERR 


; display wait icon 


; set up ptr to save header 
; ptr for data 

; set sector # 

; set timeout count (3 mins) 
; set retry count 

; set threshold count 

7 go get data 

; exit if error 


; Now verify header and if OK, jump to startup program 


PBOOT 


FILEID (Al) ,DO 
#BOOTPAT ,DO 
PBOOT 
#BADHDR , DO 
HDSKERR 


HDERR2 , A3 
VCTRINIT4 


#HDRBUFR+20 , A2 
STRTBOOT 


; get file id 

; is it a boot block? 
; continue if OK 

; else set error code 
; and exit 


;set up vectors in case of errors 


; set ptr for data 
; and go start execution 
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1F10| 
1F10| 
1F10| 
1F10| 
1F10| 
1F10| 
1F10| 
1F16| 
1F18 | 
1F1C| 
1F1E| 
1F22 | 
1F22 | 
1F26| 
1F28 | 
1F28 | 
1F28 | 
1F28 | 
1F2C| 
1F2E| 
1F32 | 
1F36| 
1F36| 
1F3A| 
1F3A| 
1F3A| 
1F3A| 
1F3A| 
1F3A| 
1F3A| 
1F3E| 
1F3E| 
1F3E| 
1F42 | 
1F46| 
1F4A| 
1F4E| 
1F54| 
1F5A| 
1F5E| 
1F5E| 
1F5E| 
1F62 | 
1F66| 
1F66| 
1F66| 
1F6A| 


0C38 
6706 
45FA 
6004 
45FA 


0c00 
660E 


0807 
6608 
6100 
6000 


6100 


6100 


6100 
6100 
6100 
6100 
0238 
O8F8 
6000 


4OFA 
6000 


4OFA 
6000 


0003 


1B85 


1BBA 


0050 


001c 


11AA 
F8FA 


15A2 


F6E6 


F788 
F784 
F780 
11C8 
O0OFC 
0000 
0640 


0006 
FDB8 


0006 
FDBE 


O2AF 


tex 


; Error detected - output message and abort boot 


HDSKERR 
.IF USERINT = 0 
. ELSE 
CMP.B #3,SYSTYPE 
BEQ.S @2 
LEA PROICON , A2 
BRA.S @3 
@2 LEA UPPER , A2 
@3 CMP.B #NODSK,DO 
BNE.S @1 


;check system type CHG009/CHG029 
;skip if internal disk CHG009/CHG029 
7else setup Profile icon 

;skip to do display CHGO09 

;set for integral hard disk CHGOO09 


;Profile not attached error? 
;skip if not 


; I£ default boot and no Profile attached, go to boot menu 


BTST #ALTBOOT ,D7 
BNE.S @1 
BSR CLRDESK 
BRA LSTCHK 

@1 BSR DSPERRICON 
. ENDC 


;is this a default boot? 

;skip if not 

;clear desktop 

;and do beep and display the boot menu 


;display with bad mark 


; {PROFILE} 


; Sound error tones and display error code 


BOOTFAIL 
BSR DSPCODE 

BFAIL2 
BSR HIPTCH 
BSR HIPTCH 
BSR HIPTCH 
BSR CLRMENU 
ANDI.B #SFC,STATFLGS 
BSET #NORSTRT , STATFLGS 
BRA MONITOR 

HDERR2 BSR4 SAVEXCP 

# LEA @1,A4 

# BRA SAVEXCP 

#@1 

HDERR3 BSR4 BTERR 

# LEA @1,A4 

# BRA BTERR 


;display error code 


;startup failure causes hi,hi,hi tones 


;clear menu bar 

;allow CONTINUE option from boot error 
7; but not restart option 

;and go to monitor 


;Save exception info 


;xegroup from error 
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1F6E| 
1F6E| 
1F70| 
1F70| 
1F70| 
1F70| 
1F70| 
1F70| 
1F70| 
1F70| 
1F70| 
1F70| 
1F70| 
1F70| 
1F70| 
1F70| 
1F70| 
1F70| 
1F70| 
1F70| 
1F70| 
1F70| 
1F70| 
1F70| 
1F74| 
1F74| 
1F76| 
1F7A| 
1F7C| 
1F7C| 
1F7E| 
1F80 | 
1F82 | 
1F82 | 
1F82 | 
1F82 | 
1F82 | 
1F86 | 
1F88 | 
1F8A| 
1F8C | 
1F8C | 
1F8E| 
1F90| 
1F90| 
1F90| 
1F90| 


60A0 


48E7 3F7E 


40E7 
007C 0700 
6174 


6704 
7050 
605C 


0810 0001 
6608 
5382 
66F6 


7051 
604E 


6100 O0B6 


#@1 
BRA.S HDSKERR 
IF EXTERNAL = 1 
. ENDC 
. PAGE 


tex 


;and go display it 


; First initialize and then ensure disk is attached by checking OCD line. 


; Assumes ACR and IER registers of VIA set up by caller. 


; are cleared by power-up reset. 
; Register usage: 


For boot, these 


; DO = scratch use AO = VIA address for parallel port interface 
7 D1 = block to read Al = address to save header 

- D2 = timeout count A2 = address to save data 

; D3 = retry count A3 = scratch 

ie D4 = threshold count A4 = unused 

; Returns: 

4 DO = error code (0 = OK) 

. D1 = error bytes (4) 


; D2 - D7 and Al - A6 are preserved 


PROREAD MOVEM.L D2-D7/A1-A6,- (SP) ; 


DISABLE ; 

# MOVE SR,- (SP) 

# ORI #$0700,SR 
BSR.S  PROINIT ; 
BEQ.S CHKBSY ; 
MOVEQ #NODSK,DO ; 
BRA.S PROERR : 


; Now check if Profile ready - wait time 


save regs 
ensure interrupts off 


init for Profile access and check 
if attached 

go on if OK 

else set error code and 

skip if error - no disk attached 


presently set for about 100 seconds 


7; to allow enough time for normal Profile startup time of about 80 seconds 


CHKBSY BTST #BSY , IRB2 (AO) : 
BNE.S TRYRD . 
SUBQ.L #1,D2 7 
BNE.S CHKBSY 
MOVEQ #DSKBSY,DO 7 
BRA.S PROERR ; 


; Now start read and check status to see 


TRYRD BSR STRTRD : 


check if Profile ready (not busy) 
skip if yes 
else loop until timeout 


set disk busy error code 
and go to error exit 
if OK 


go begin read process 
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1F94| 6418 BcC.S @1 ; skip if OK CHG016 
1F96| 6100 018A BSR WENBSY ; else check for ready CHG016 
1F9A| 6100 OOAC BSR STRTRD ; and do retry CHG016 
1F9E| 640E BCC.S @1 ; continue if OK CHG016 
1FA0| 6100 01A4 BSR DOCRES ; else issue reset signal CHGO16 
1FA4| 6100 017C BSR WENBSY ; wait until ready CHG016 
1FA8| 6100 009E BSR STRTRD ; and try one more time CHGO16 
1FAC| 6530 BCS.S PROERR ; finally exit if error 

1FAE | 

1FAE| 4A78 01B6 @1 TST.W STAT3 ; check if reset error CHG016 
1FB2| 6A06 BPL.S @2 ; skip if not 

1FB4| 6100 0092 BSR STRTRD ; else go try read again 

1FB8| 6524 BCS.S PROERR ; and abort if error 

1FBA| 

1FBA| 4AB8 01B4 @2 TST.L STATBFR ; check complete status 

1FBE| 6712 BEQ.S RDDATA ; skip if OK 

1FCO| 2238 01B4 MOVE.L STATBFR,D1 ; else get status 

1FC4| 2001 MOVE.L D1,D0 ; save for use 

1FC6| 0280 C140 C000 ANDI.L #STATMSK,DO ; mask don't care bits 

1FCC| 6704 BEQ.S RDDATA ; and continue if OK 

1FCE| 7053 MOVEQ #STATNZ,DO ; else set error code 

1FDO| 600C BRA.S PROERR ; and go to error exit 

1FD2 | 

1FD2 | ; All OK - go read block and transfer to memory; do as multiple moves for 
1FD2 | ; Max transfer rate. 

1FD2 | 

1FD2| 7004 RDDATA MOVEQ  #<HDRSIZE/4>-1,D0 ; set count for header read 

1FD4| 615C BSR.S READIT ; go do it 

1FD6 | 

1FD6| 707F MOVEQ #<BLKSIZE/4>-1,D0 ; set count for data read 

1FD8| 224A MOVEA.L A2,A1 ; set new read location 

1FDA| 6156 BSR.S READIT 

1FDC | 

1FDC| 6008 BRA.S PROXIT ; and go to exit 

1FDE | 

1FDE | ; Error exit - set carry bit as indicator flag 

1FDE | 

1FDE| 46DF # MOVE (SP)+,SR ;restore interrupt mask 

1FEO| 003C 0001 ORI.B  #$01,CCR 

1FE4| 6004 BRA.S  PROXIT2 

1FE6 | 

1FE6 | ; Normal exit - restore regs and exit 

1FE6 | PROXIT ENABLE ;restore interrupt mask 

1FE6| 46DF # MOVE (SP)+,SR 

1FE8| 4280 CLR.L DO ;set OK return code CHG025 
1FEA| 

1FEA| 4CDF 7EFC PROXIT2 MOVEM.L (SP)+,D2-D7/A1-A6 


tex 
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1FEE | 
1FFO| 
1FFO| 
1FFO| 
1FFO| 
1FFO| 
1FFO| 
1FFO| 
1FFO| 
1FFO| 
1FFO| 
1FFO| 
1FFO| 
1FFO| 
1FFO| 
1FFO| 
1FF2 | 
1FF8 | 
1FFC | 
2002 | 
2008 | 
200E | 
2014| 
2018 | 
201C| 
2020| 
2026 | 
202C| 
2030| 
2032 | 
2032 | 
2032 | 
2032 | 
2032 | 
2032 | 
2032 | 
2032 | 
2032 | 
2036 | 
203A| 
203E| 
2042 | 
2046| 
2048 | 
2048 | 
2048 | 
2048 | 


4E75 


4280 
267C 
0013 
002B 
207C 
0228 
0028 
4228 
0010 
0210 
0228 
0028 
0810 
4E75 


12E8 
12E8 
12E8 
12E8 
51C8 
4E75 


OOFC 
OOAO 
O0OAO 
OOFC 
007B 
006B 
0018 
0018 
OOFB 
OOFC 
001c 
0000 


0008 
0008 
0008 
0008 
FFEE 


DD81 


0004 
D901 
0060 
0060 


0010 
0010 


; Subroutine to init parallel port for Profile access. 


; Inputs: 
; None 
; Outputs: 


PROINIT 


; Subroutine to read bytes from Profile. 


: DO 
: AO 
: Al 
READIT 


; Subroutine to begin the read process. 


DO cleared for error use 


AO = VIA base address for parallel port 
CCR zero bit set if cable connected 


Effects: 
None 


DO 
#VIA1BASE ,A3 
#SA0 ,ORB1 (A3) 
#SA0 , DDRB1 (A3) 
#VIA2BASE , AO 
#$7B , PCR2 (AO) 
#56B , PCR2 (AO) 
#500 ,DDRA2 (AO) 
#$18 , ORB2 (AO) 
#SFB ,ORB2 (AO) 
#SFC , DDRB2 (AO) 
#$1C , DDRB2 (AO) 
#OCD , IRB2 (AO) 


= byte count - 1 
= VIA address for parallel interface 
= memory load address 


IRA2 (AO) , (A1)+ 
IRA2 (AO) , (A1)+ 
IRA2 (AO) , (A1) + 
IRA2 (AO) , (Al) + 
DO, READIT 


; Clear for result use 
; get kybd VIA base address 
; initialize profile-reset and parity-reset 


and set lines as outputs 


; get paraport VIA base address 
; set ctrl CA2 pulse mode/positive edge 


; set port A bits to input 
; then set direction=in, cmd=false, 


enable=true 


; set port B bits 0,1=in, 


2,3,4=out 


; check OCD line 
; and exit 


Assumes: 


; read the bytes 


First calls a routine that 


tex 


CHG036 
CHG036 
CHG036 


CHG036 
CHG036 
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2048 | 
2048 | 
2048 | 
2048 | 
2048 | 
2048 | 
2048 | 
2048 | 
2048 | 
2048 | 
2048 | 
204¢C| 
204E| 
2052 | 
2056| 
2058| 
205A| 
205A| 
205A| 
205A| 
205C| 
205E | 
2060| 
2060| 
2060| 
2064 | 
2068 | 
206C| 
2070| 
2074| 
2074| 
2076 | 
2076| 
2076| 
2076 | 
2076 | 
2076 | 
2076 | 
2076 | 
2076 | 
2076 | 
2076 | 
207A| 
207C| 
207E| 
2080| 
2084 | 


367C 
2681 
1743 
1744 
611E 
651A 


7402 
615E 
6514 


367C 
16E8 
16E8 
16E8 
16E8 


4E75 


48E7 
7401 
613E 
6412 
0c00 
672C 


0304 


0004 
0005 


01B4 
0008 
0008 
0008 
0008 


2800 


0055 


tex 


; an appropriate response from Profile is executed. Then a wait for 
; Assumes regs: 


- DO = scratch use 

; D1 = block to read 

. D2 = used for Profile cmd 
3 D3 = retry count 

- D4 = threshold count 


AO 
Al 
A2 
A3 


a4 


; If error, carry bit set and error 


VIA address 
unused 
unused 
scratch use 
unused 
code in DO. 


, 


STRTRD MOVEA 
MOVE.L 
MOVE .B 
MOVE .B 
BSR.S 
BCS.S 


#CMDBUFR , A3 
D1, (A3) 

D3 , RETRY (A3) 
D4, THRESH (A3) 
STATO1 
STRTXIT 


; first set up command RMOO0O 
; set read command (0) and block # 

; set retry count 

; set threshhold for sparing 

; get 01 byte and send read command 

; exit if error 


; OK so far - go check if Profile ready to send data 


MOVEQ 
BSR.S 
BCS.S 


#2 ,D2 
FINDD2 
STRTXIT 


; Get status bytes 


GETSTAT MOVEA 
MOVE .B 
MOVE .B 
MOVE .B 
MOVE .B 


STRTXIT RTS 


; Subroutine 
; Input regs: 
; AO VIA 
; A3 = ptr 


#STATBFR , A3 

IRA2 (AO) , (A3) + 
IRA2 (AO) , (A3) + 
TIRA2 (AO) , (A3) + 
IRA2 (AO) , (A3) + 


7; get 02 byte RMOO0O 


; exit if timeout error 


; set buffer ptr RMOO0O 
; vead and save the status 


; return to caller 


to get in sync with Profile. 


address 


to command buffer 


; If error, returns with carry bit set and error code in DO 


STATO1 MOVEM. 
MOVE.L 
BSR.S 
BCC.S 
CMP .B 
BEQ.S 


L D2/D4,- (SP) 
#1,D2 
FINDD2 
COPY6 
#TMOUT , DO 
STATERR 


; save regs 
; try to find state 01 


; skip if OK 
; else check if timeout error 
; and exit if yes 
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2086| 
2086| 
208A| 
208C| 
208E| 
208E| 
2090] 
2092 | 
2092 | 
2096| 
209C| 
20A0 | 
20A4 | 
20A8 | 
20AC | 
20B0 | 
20B2 | 
20B2 | 
20B6 | 
20B6 | 
20BA | 
20BC | 
20BC | 
20BC | 
20BC | 
20BC | 
20BC | 
20BC | 
20BC | 
20BC | 
20BC | 
20BC | 
20BC | 
20C0 | 
20C4 | 
20C8 | 
20CA | 
20CC | 
20CE | 
20CE | 
20D2 | 
20D4 | 
20D6 | 
20D8 | 
20DA | 
20DC | 
20DC | 


6100 
4A00 
6624 


612C 
6524 


0210 
117¢C 
303C 
115B 
51C8 
0010 
4228 
6004 


003C 


4CDF 
4E75 


48E7 
0210 
4228 
4280 
6130 
6618 


1228 
4203 
B202 
6704 
7052 
6002 


7655 


OOAA 


OOF7 
OOFF 
0005 
0008 
FFFA 
0008 
0018 


0001 


0014 


7800 
OOEF 
0018 


0078 


0018 


BSR WENBSY3 ; 
TST.B DO 7 
BNE.S STATERR ; 
@2 BSR.S  FINDD2 ; 
BCS.S  STATXIT ; 
COPY6 ANDI.B #$F7,ORB2 (AO) ; 
MOVE.B #SFF,DDRA2 (AO) ; 
MOVE.W #PCMDSZ,DO ; 
COPY6LP MOVE.B (A3)+,ORA2 (AO) ; 
DBF DO ,COPY6LP 
ORI.B #508,ORB2 (AO) ; 
MOVE.B #$00,DDRA2 (AO) ; 
BRA.S  STATXIT ; 
STATERR ORI.B  #$01,CCR ; 
STATXIT MOVEM.L (SP)+,D2/D4 ; 
RTS 
. PAGE 


tex 


ensure Profile ready RM000 
check for timeout error 


and exit if yes 


try to find state 01 again 
exit if error again 


set dir=out 

set port A bits to output 
set command size 

send the command bytes 

reset dir=in 

and set port A bits to input 
then exit 


set error indicator 


restore regs 


; Subroutine to handshake with Profile and wait for command completion. 
; Polls busy bit until it goes low (not busy) . 


; Assumes regs: 

: AO = VIA address 

4 D2 = Expected response to previously 
; If error, carry bit set and error code 


FINDD2 MOVEM.L D1-D4,- (SP) ; 


ANDI.B #SEF,ORB2 (AO) a‘ 
MOVE.B #S$00,DDRA2 (AO) ; 
CLR.L DO : 
BSR.S WEBSY ; 
BNE.S FINDERR : 
GETRSP MOVE.B PORTA2(A0) ,D1 ; 
CLR.B D3 ; 
CMP.B  D2,D1 : 
BEQ.S RSPOK ; 
MOVEQ #BADRSP,DO ; 
BRA.S  SNDR1 ; 
RSPOK MOVEQ  #$55,D3 ; 


issued command 
in DO. 


save regs 
set cmd=true 

set port A bits to input 
used for return code 
wait for busy 

exit if error 


get response in D1 w/o handshake 
used for reply to Profile 

did pippin return state requested ? 
skip if yes 

else set error code 

and go send reply 


set up OK reply RMOO0O 
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tey 


20DE | 

20DE| 612E SNDR1 BSR.S SENDRSP ; send response 

20E0 | 

20E0| 4A00 TST.B DO ; check return code 

20E2| 6602 BNE.S FINDERR ; skip if error 

20E4 | 

20E4| 613C BSR.S  WENBSY 7; now go wait for not busy 

20E6 | 

20E6| 4228 0018 FINDERR MOVE.B #500,DDRA2 (AO) ; reset port A bits to input 

20EA| 0010 0018 ORI.B #$18,ORB2 (A0) ; and dir = in, cmd=false 

20EE | 

20EE| 4A00 TST.B DO ; check return code 

20F0| 6704 BEQ.S FNDXIT ; skip if OK 

20F2| 003C 0001 ORI.B #$01,CCR ; else set error indicator 

20F6| 

20F6| 4CDF 001E FNDXIT MOVEM.L (SP)+,D1-D4 ; restore regs(but don't affect CCR bits) 
20FA| 4E75 RTS 

20FC | 

20FC | 

20FC | ea a aaa gia aur el aaa am ca eae aa a 
20FC | ; Subroutine to wait for Profile busy signal. Polls busy bit until it 

20FC | 7 goes high (busy). 

20FC | ; Assumes regs: 

20FC| is AO = VIA address 

20FC | . D4 = timeout value if WFBSY1 entry point used 

20FC| ; If error, error code in DO. 

20FC| aaa aaa na areca aaa a 
20FC | 

20FC| 383C FFFF WEBSY MOVE #RSPTIME ,D4 ; set response timeout = 100 msec 

2100| 

2100| 0810 0001 WEBSY1 BTST #BSY , IRB2 (AO) ; wait for busy 

2104| 6706 BEQ.S @9 ; skip if OK 

2106| 5344 SUBQ #1,D4 ; else loop until timeout 

2108| 66F6 BNE.S WEFBSY1 

210A| 7055 MOVEQ #TMOUT,DO ; set timeout error 

210C| 4E75 @9 RTS 

210E | 

210E | Pe ga ee ee a oe a ee ee er ee a eee 
210E | ; Subroutine to send response command to Profile. 

210E | ; Assumes regs: 

210E| io AO = VIA address 

210E | FS a a a a eS so 
210E | 

210E| 0210 0O0E7 SENDRSP ANDI.B_ #SE7,ORB2 (AO) ; set dir=out, cmd=true 

2112| 117C OOFF 0018 MOVE.B #SFF,DDRA2 (A0) ; set port A bits to output 

2118| 1143 0078 MOVE.B D3, PORTAZ2 (AO) ; send reply(00 or 55) w/o handshake 
211C| 0010 0010 ORI.B #$10,ORB2 (AO) ; set cmd=false 
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2120} 
2122 | 
2122 | 
2122 | 
2122 | 
2122 | 
2122 | 
2122 | 
2122 | 
2122 | 
2122 | 
2122 | 
2128 | 
212A| 
212A| 
2130| 
2132 | 
2132 | 
2138 | 
2138 | 
213C| 
213E | 
2140} 
2142 | 
2144| 
2146} 
2146} 
2146} 
2146} 
2146} 
2146} 
214C| 
2150| 
2154| 
2158 | 
215¢C| 
215E | 
215E | 
215E | 
215E | 
215E | 
215E | 
215E | 
215E | 
215E | 
215E | 
215E | 


4E75 


283C 
600E 


283C 
6006 


283C 


0810 
6606 
5384 
66F6 
7055 
4E75 


267C 
0213 
6100 
0013 
6100 
4E75 


0018 0000 


0120 0000 


0000 0500 


0001 


OOFC DD81 
OO7F 
E97A 
0080 
E972 


; Subroutine to wait for Profile not busy signal. Polls busy bit until it 
7 goes low (not busy) . 

; Assumes regs: 

; AO = VIA address 

; D4 = timeout value if WFNBSY1 entry point used 

; If error, DO has error code. 


WENBSY MOVE.L #RDTIME,D4 ; set timeout for about 16 secs 
BRA.S WENBSY1 7 


WENBSY2 MOVE.L #STRTIME,D4 ; set initial Profile self-test time 
BRA.S WENBSY1 - 


WENBSY3 MOVE.L #BSYTIME,D4 ; set timeout for about 10 ms 
WENBSY1 BTST #BSY , IRB2 (AO) ; wait for not busy 
BNE.S @9 ; exit if OK 
SUBQ.L #1,D4 ; else loop until timeout 
BNE.S WENBSY1 
MOVEQ #TMOUT,DO ; set timeout error 
@9 RTS 


DOCRES MOVE.L #VIA1BASE,A3 juse keyboard 6522 
ANDI.B #57F,ORB1 (A3) ;set reset signal 
BSR DELAY 1 ;delay for controller to get signal 
ORI.B #$80,ORB1(A3) ;remove reset signal 
BSR DELAY 1 ;delay for controller to respond 
RTS jand exit 
.ENDC ; {PROFLE} 
IF EXTERNAL = 1 
. ENDC 
. PAGE 


; Routine to boot from I/O slot. 

; Verifies that slot has bootable card installed and then reads in ROM 
; data. If status routine exists it is executed, else jump to boot 

; ‘voutine done if checksum OK. 


tex 


CHG037 
CHG019 


CHG019 
CHG019 


RMO00 


CHG016 


CHG026 
CHG016/CHG026/CHG036 
CHGO16 
CHG016/CHG026/CHG036 
CHG038 
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215E | 
215E | 
215E | 
215E | 
215E | 
215E | 
215E | 
215E | 
215E | 
215E | 
2160| 
2160| 
2164 | 
2166| 
2166| 
216A| 
216E | 
2172 | 
2172 | 
2172 | 
2172 | 
2172 | 
2174 | 
2176 | 
217A| 
217C} 
217C| 
217C| 
2180| 
2180| 
2180| 
2182 | 
2184| 
2186| 
2186 | 
2186| 
218A| 
2190| 
2194 | 
2194 | 
2194 | 
2196| 
219A} 
219¢| 
2198 | 
2198 | 
21A0 | 


1800 


2A78 
2C4F 


STFA 
21CB 
0309 


4n41 
6A28 
0Cc41 
6722 


6100 


2449 
6148 
651C 


1038 
247C 
6000 


705A 
21CD 
2E4E 
6008 


705B 
6004 


0008 


002C 


0008 


0000 


FFFF 


FD28 


01B3 
0002 
FAFO 


0008 


0002 


= boot device id ($4-SC) 
- AO = scratch use 

= slot address 
; Outputs: (relayed to loaded boot program) 
boot device id 
slot address 


IOSBOOT MOVE.B DO,D4 ;save boot device id 


; also acts as flag for status check 


MOVE.L BUSVCTR,A5 ;save bus error vector 
MOVE.L SP,A6 ;save current stack pointer 
LEA NOCRD ,A3 ;setup new bus error vector 
MOVE.L A3,BUSVCTR 

MOVEP (Al) ,D1 ;read card id 


.IF USERINT = 0 


. ENDC 

TST D1 ;check if card installed 
BPL.S INVID ;exit if not bootable 
CMP #SFFFF ,D1 ;check if special case 


BEQ.S INVID 


.IF USERINT = 1 


BSR WAITALRT ;display wait icon 
. ENDC 
MOVE.L A1,A2 ;get slot address 
BSR.S  RDIOSLT ;go check the board 
BCS.S BADBRD ;exit if error 
STATOK 
MOVE.B BOOTDVCE,DO ;setup boot device id 
MOVE.L #BTENTRY ,A2 ;and starting program address 
BRA STRTBOOT ;and go do boot ... 
; Error routines for I/O slot booting. Error code saved and error message output. 
NOCRD MOVEQ- #NOC,DO ;set error code 
MOVE.L A5,BUSVCTR ;restore bus error vector 
MOVE.L A6,SP ;and stack ptr 
BRA.S SENDMSG ;then go display msg 
INVID MOVEQ- #INV,DO ;set error code 
BRA.S SENDMSG ;go do display 


tex 


@ "27 Computer Boot ROM 2.48 Listing ¢ 152 of 265 


tex 


21A2 | 

21A2| 1838 01B3 BADBRD MOVE.B BOOTDVCE,D4 ;restore boot device id for checking 
21A6 | 

21A6 | SENDMSG 

21A6| 11C0 0184 MOVE.B DO,BOOTDATA ;save error code 

21AA| 

21AA | .IF USERINT = 0 

21AA| . ELSE 

21AA| ; determine which slot # being used 

21AA | 

21AA| 45FA 1868 LEA XCARD ,A2 ;set general I/O slot card ptr 

21AE| 0C04 0004 CMP.B #I01PORT2,D4 ;in slot 1 range? 

21B2| 6E04 BGT.S @1 

21B4| 7201 MOVEQ #1,D1 yes - set slot #1 

21B6| 600C BRA.S @3 

21B8 | 

21B8| 0C04 0007 @1 CMP .B #IO2PORT2 ,D4 ;slot 2 range? 

21BC| 6E04 BGT.S @2 

21BE| 7202 MOVEQ #2,D1 ;set slot 2 id 

21C0| 6002 BRA.S @3 

21C2 | 

21C2| 7203 @2 MOVEQ #3,D1 ;else must be slot 3 

21C4 | 

21C4| 6100 128A @3 BSR DSPNUMICON ;display error icon and slot # 

21C8| 6000 FD70 BRA BOOTFAIL jand signal boot failure 

21CC | . ENDC 

21CC | 

21CC | . PAGE 

21cc | .IF NEWIWIG = 1 

21CC | a aa a aa aa a a ta aa a ed 
21CC| ; Routine to read ROM on an I/O slot. 

21CC | ; Inputs: 

21CC| ; A2 = I/O slot base address 

21CC| . D4 = nonzero if status check also to be done, else O for no check 
21CC| - D1 = card id if status check needed 

21CC| ; Outputs: 

21CC| . Carry bit set if error, error code saved in DO, error code from 
21CC| 7 status check saved in BOOTDATA+1 

21CC| ; Side Effects: 

21CC| - DO, A2 trashed 

21CC | ee rr eee 
21CC| 48E7 70CO RDIOSLT MOVEM.L D1-D3/A0-Al,-(SP) ;save regs 

21D0| 207C 0001 FFFC MOVE.L #ADR128K-4,A0 ;set load pt (also load id/word count) 
21D6| 224A MOVE.L A2,Al1 ;save slot address for later use 

21D8| 4280 CLR.L DO ;clear for use 

21DA| 010A 0004 MOVEP 4(A2) ,DO ;read word count 

21DE| 5440 ADDQ #2,D0 jincr for id/count fields 
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21E0| 0C40 OFFF CMPI #SOFFF,DO ;check for max count 

21E4| 6244 BHI.S INVSUM ;exit if error 

21E6| 4282 CLR.L D2 ;clear for use 

21E8| 4283 CLR.L D3 

21EA| 

21EA| 050A 0000 LOADPGM MOVEP (A2) ,D2 ;read word 

21EE| 3082 MOVE D2, (AO) ;save in memory 

21F0| 3418 MOVE (AO) +,D2 ;reread it from memory 

21F2| D642 ADD D2 ,D3 ;add to checksum 

21F4| E35B ROL #1,D3 ;rotate for better effectiveness 
21F6| 588A ADDQ.L #4,A2 ;bump address ptr 

21F8| 5340 SUBQ #1,D0 

21FA| 66EE BNE.S LOADPGM ;loop until done 

21FC | 

21FC| 050A 0000 MOVEP (A2) ,D2 ;read expected checksum (2 bytes) 
2200| D642 ADD D2 ,D3 ;add to calculated checksum 
2202| 4A43 TST D3 ;check for 0 result (also clears carry bit) 
2204| 6624 BNE.S INVSUM ;skip if error 

s2206| 

2206| ; Do status check if desired and available 

2206 | 

2206| 4A44 TST D4 ;do status check? 

2208| 672A BEQ.S RDIOXIT ;skip if not 

220A| 0801 OO0OE BIST #STBIT,D1 ;status routine available? 
220E| 6724 BEQ.S RDIOXIT ;skip if not 

2210| 

2210| 48E7 OF3E MOVEM.L D4-D7/A2-A6,-(SP) ;save regs not already saved 
2214| 4EB9 0002 0000 JSR STENTRY 7;go execute status routine 
221A| 4CDF 7CFO MOVEM.L (SP)+,D4-D7/A2-A6 ;restore regs 

2215 | 

221E| 4A40 TST DO ;check status 

2220| 6712 BEQ.S RDIOXIT ;skip if no error 

2222| 11C0 01B5 MOVE.B DO,BOOTDATA+1 ;Ssave card error code 

2226| 705D MOVEQ #BADST,DO ;set general error code 
2228| 6002 BRA.S SAVERR 

222A| 

222A| 705C INVSUM MOVEQ  #BADSM,DO ;set invalid checksum 

222C | 

222C| 11C0 01B4 SAVERR MOVE.B DO,BOOTDATA ;Ssave error code 

2230| 003c 0001 ORI.B #S$01,CCR ;set error indicator 

2234 | 

2234| 4CDF 030E RDIOXIT MOVEM.L (SP)+,D1-D3/A0-Al ;restore regs 

2238| 4E75 RTS 

223A| 

223A| . ENDC 

223A| 

223A| .IF BURNIN = 1 


tex 
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223A| 
223A| 
223A| 
223A| 
223A| 
223A| 
223A| 
223A| 
223A| 
223A| 
223A| 
2242 | 
2244 | 
224A | 
2250| 
2250| 
2252 | 
2254 | 
2256| 
2258 | 
2258 | 
225A| 
2260| 
2268 | 
226C| 
2270 | 
2270| 
2270| 
2270| 
2270| 
2272 | 
2276 | 
2278 | 
227A| 
227C | 
2280| 
2282 | 
2288 | 
228A| 
228E | 
2290| 
2292 | 
2296 | 
229A| 
229A| 
229A| 
229A| 


0C39 
6756 
207C 
227C 


4210 
5488 
B3C8 
66F8 


7001 
13c0 
13FC 
42B8 
4278 


702C 
6100 
651E 
4281 
7408 
6100 
6514 
223C 
7408 
6100 
6506 
7025 
6100 
6500 


0001 OOFC C191 


OOFC C191 
OOFC C1FF 


OOFC C191 


, 


tex 


Special code to enable burnin cycling by the ROM. Does initialization 
on first pass, and then causes cycling for the specified cycle count, 
which defaults to approximately 60 minutes. At 

that point a branch to a system shutdown routine is performed. 


Do first pass initialization 


CHKPASS CMP.B #$01,INITFLG ;first pass done? 
BEQ.S CHKTIM iskip if yes 
CHKPAS2 MOVEA.L #INITFLG,AO ;set ptr for other data areas 
MOVEA.L #ENDPM,A1 ;and ending ptr 
CLRPM CLR.B (AO) ;do clear 
ADDQ.L #2,A0 ;bump ptr 
CMPA.L AO,A1 ;loop until done 


003C OO0FC C1C3 


01BA 
01BE 


E6E2 


01E8 


1000 0000 


01DA 


E6C2 
01B0 


, 


, 


@9o 


, 


BNE.S CLRPM 


MOVEQ #1,D0 


MOVE.B DO,INITFLG ;set init flag 

MOVE.B #60,CYCLVAL ;set cycling for 60 minutes 
CLR.L  CLKDATA ;and init clock data area 
CLR CLKDATA+4 


Set clock to initial value so run can be ended at cycle count. Sends 
value of day=01, all other values=0 (e.g., time = 00:00:00). 


MOVEQ #52C,D0 ;set up clock set cmd 

BSR COPSCMD ;and send to COPS 

BCS.S @9 ;exit if error RMOO00 
MOVE.L #SET1,D1 ;set up value for clock 

MOVEQ #8 ,D2 ;set "char" count 

BSR TODSET ;and go do it 

BCS.S @9 ‘ RMOO0O 
MOVE.L #SET2,D1 ;set up next value for clock 

MOVEQ #8 ,D2 ;set "char" count 

BSR TODSET ;and go do it 

BCS.S @9 ; RMOO0O 
MOVEQ #$25,D0 ;finally set up clock enable cmd 

BSR COPSCMD ;and send it 

BCS SETERR1 ;exit if error 


Check to see if cycle count to be changed and if time data needs to be saved 


CHKTIM 
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229A| 
229A| 
2298 | 
2298 | 
2298 | 
22A4 | 
22A6 | 
22AC | 
2280 | 
22B2 | 
22B4 | 
22B6 | 
22B8 | 
22BE | 
22BE | 
22C6 | 
22C8 | 
22C8 | 
22CC | 
22CE | 
22D0 | 
22D6 | 
22DC | 
22F2 | 
22EA | 
22EA | 
22EA | 
22EA | 
22F2 | 
22F6 | 
22F6 | 
22FC | 
2300| 
2304 | 
2306 | 
2306| 
230A| 
230E | 
2314| 
231A| 
231E | 
2320| 
2322 | 
2324 | 
2324 | 
2326| 
2328 | 


6100 


0838 
6718 
1039 
0co00 
6604 
7003 
6002 
703C 
13c0 


0C39 
6722 


2038 
E998 
4840 
13c0 
4239 
4239 
13FC 


0C39 
6600 


4239 
STFA 
6100 
7C0C 


STFA 
21CB 
207C 
267C 
4A38 
6704 
7850 
6012 


4281 
782D 


OEC8 


0002 


O0OFC 
003C 


O0OFC 


0001 


01BC 


OOFC 
OOFC 
O0OFC 
0001 


0002 
0082 


OOFC 
1AEB 
13F4 


EE7E 
0008 
O0OFC 
OOFC 
O2AF 


02A2 


c1c3 


Cc1c3 


OOFC 


C19B 
cic5 
cicl 
OOFC 


OOFC 


c1ic5 


cool 
DD81 


C199 


C199 


c1c5 


@1 
@2 


@3 


, 


.IF USERINT = 1 


BSR 
. ENDC 


BIST 
BEQ.S 
MOVE .B 
CMP .B 
BNE.S 
MOVEQ 
BRA.S 
MOVEQ 
MOVE .B 


CMP .B 
BEQ.S 


MOVE .L 
ROL.L 
SWAP 

MOVE .B 
CLR.B 
CLR.B 
MOVE .B 


MAKEPCALRT 


;setup powercycle alert box 


#MSBUIN,STATFLGS ;mouse button detected? 


@3 
CYCLVAL , DO 
#60 ,DO 

@1 

#3 ,DO 

@2 

#60 ,DO 

DO ,CYCLVAL 


#$01, TIMFLG 
TWGCHK 


HOUR , DO 
#4,D0 

DO 

DO ,MINSAV 
MINCNT 
CYCLCNT 
#501, TIMFLG 


;skip if no 
;read current setting 
;long cycle set? 


;set for 3 minute cycle 


;set for 60 minute cycle 
;save in PM 


;time data saved? 
iskip if yes 


;get minutes 


;save minutes 

;and clear minute count 
; and cycle count 

jand set flag 


Check if time for Twiggy test (do every two minutes) 


TWGCHK CMP.B 


@1 


#2 ,MINCNT 
WRIMSG 


MINCNT 
TWGMSG , A3 
DSPMSGR 
#PCCOL ,D6 


DSKVCT , A3 
A3,BUSVCTR 
#DISKMEM , AO 
#VIA1BASE , A3 
SYSTYPE 

@1 

#80,D4 

@2 


D1 
#45 ,D4 


;check minute counter 


;clear counter 
;get msg ptr 

;and display it 
;reset left margin 


;set up bus error vector 
;set ptr to shared memory 


;check system type 
;skip if Lisa 1.0 


;else set track count for SONY drive 


;and go test single drive 


;else set for drive 1, track 0 to start 


;set count (# of tracks) 


RMO00 
RMO00 
RMO00 


RMO00 


RMOO0O0 
RMO00 


RMOO00 


CHG009 
CHG009 
CHG009 
CHG009 


tex 
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2328 | 
2328 | 
2328 | 
232C| 
232E | 
2332 | 
2334 | 
2336| 
2336| 
2338 | 
233C| 
233E| 
2342 | 
2344 | 
2344 | 
2348 | 
234C| 
234E | 
2352 | 
2356| 
235C| 
235E| 
2364 | 
2364 | 
2364 | 
2364 | 
2368 | 
236E| 
2372 | 
2376| 
2376| 
2376| 
2376 | 
237A| 
237E| 
2384 | 
2388 | 
238A| 
238A| 
2390| 
2392 | 
2398 | 
2398 | 
239C| 
239C| 
239C| 
239C| 


6100 FB48 
6516 
6100 014E 
6510 
782D 


4281 
123c 0008 
E899 
6100 013E 
6420 


47FA 1ACA 
6100 13AC 
7C0C 

0c00 0027 
6700 010A 
5239 OOFC 
6406 

5239 OOFC 


6100 O1AA 
117c 0088 
10BC 0087 
6100 FA90 


47FA 1A56 
6100 1384 
1039 OOFC 
6100 F2AA 
7C0C 


5239 OOFC 
6406 
5239 OOFC 


6100 0130 


2038 01BC 


C19F 


C19D 


0002 


C1c3 


C197 


C195 


; Now do the drive test, one drive at a time 


BSR CLRFDIR 
BCS.S TSTERR 
BSR TWGTST 


BCS.S TSTERR 
MOVEQ #45,D4 


@2 CLR.L D1 
MOVE.B #$08,D1 
ROR.L #4,D1 
BSR TWGTST 
BCC.S DISINT 


TSTERR LEA TWGFAIL ,A3 
BSR DSPMSGR 
MOVEQ #PCCOL,D6 
CMP.B  #TIMOUT,DO 
BEQ CMDERR 
ADDQ.B #1,DSKCNTL 
BCC.S DISINT 
ADDQ.B #1,DSKCNTH 


;first clear interrupts 
;exit if error 
;go do test 


;reset track count 


;set for drive 2 


;and do test again 
;and continue if OK 


;display error msg 


;reset left margin 

;timeout error? 

jexit testing if yes 

7;else bump low error count 
;skip if no overflow 

;else bump high counter also 


; Disable interrupt so disks can be ejected 


DISINT BSR TWGDSP 
MOVE.B #$88,CMD (AO) 


MOVE.B #DSABLINT, (AO) 


BSR CMDCHK 


; Output initial message 


WRIMSG LEA BRNMSG , A3 
BSR DSPMSG 
MOVE.B CYCLVAL,DO 
BSR DSPDEC 


MOVEQ  #PCCOL,D6 


;display Twiggy error count 
;set ptr for both drives 
;send disable cmd 

;wait until done 


;get msg ptr 

;and display it 

;get cycling value 
;display as decimal 

;set col for window limits 


; Increment loop count and display it on screen 


CNTINC ADDQ.B_ #1,LCNTLO 
BCC.S DSPTIM 
ADDQ.B #1,LCNTHI 


DSPTIM BSR DSPCLK 


;inc low byte 
;skip if no carry 
;else inc high byte also 


;go display time 


; Now check time to see if update needed 


MOVE.L HOUR,DO 


;get minute value 


CHG009 


CHG009 


ney 
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23A0 | 
23A2 | 
23A4 | 
23AA | 
23AC | 
23B2 | 
23B8 | 
23BE | 
23BE | 
23BE | 
23BE | 
23C2 | 
23C2 | 
23C2 | 
23C8 | 
23CE | 
23D0| 
23D2 | 
23D2 | 
23D2 | 
23D2 | 
23D2 | 
23D6 | 
23DA| 
23DE | 
23E0 | 
23E4 | 
2358 | 
2358 | 
2358 | 
2358 | 
23EE | 
23F2 | 
23F8 | 
23FC | 
23FC | 
23FC | 
23FC | 
23FC| 
2402 | 
2406 | 
240A| 
240C| 
240C| 
240E | 
2412 | 
2414| 


E998 
4840 
B039 
6712 
5239 
5239 
13c0 


6100 


1039 
1239 
BO01 
6C16 


103C 
6100 
6100 
6604 
6100 
6000 


4239 
2038 
227C 
01c9 


207C 
10BC 
6100 
6552 


702D 
6100 
6538 


OOFC C19B 


OOFC C1C5 
OOFC C1Ccl 
OOFC C19B 


E714 


OOFC C1cl 
OOFC C1C3 


OOOF 
F476 
FC14 


FD48 
026C 


OOFC C199 
01BC 
OOFC C1A1 
0000 


OOFC C001 
0089 
FOFC 


E546 


ROL.L #4,D0 

SWAP DO 

CMP.B MINSAV,DO 
BEQ.S  NOCHG 
ADDQ.B #1,MINCNT 
ADDQ.B #1,CYCLCNT 
MOVE.B DO,MINSAV 


; Delay so screen can be read 


NOCHG BSR DELAY5 


;yhas value changed? 
;skip if not 

;else bump minute count 
;and cycle count 

;save new minute value 


;delay for 5 secs 


; Check to see if run should be ended 


MOVE.B CYCLCNT,DO 
MOVE.B CYCLVAL,D1 
CMP.B D1,D0 
BGE.S SHUTDOWN 


;get cycle count 
;get desired cycle value 
;cycle if same or greater 


; I£ not, cause double bus fault to restart diagnostics 
; First make parameter memory valid 


MOVE.B #PC,DO 


BSR SAV2PM 

BSR PROINIT 

BNE.S @1 

BSR WENBSY2 
@1 BRA DORESET 


;set power-cycle boot code 
;and go set param mem 

;check for attached hard disk 
;skip if none 

7else wait until disk ready 
;then go cause a system reset 


; Do soft power-off for specified cycle period 


SHUTDOWN 
CLR.B  TIMFLG 
MOVE.L CLKDATA+2,D0 
MOVE.L #CLKSAVE,A1 
MOVEP.L DO, (A1) 


;reset time save indicator 
;and save clock data 


; Disable Twiggy controller to avoid any RAM problems 


DSCONT 
MOVE.L #DISKMEM,AO 
MOVE.B #DIE, (AO) 


BSR CMDCHK 
BCS.S CMDERR 
MOVEQ #$2D,D0 
BSR COPSCMD 
BCS.S SETERR2 


;set ptr to shared memory 
;and send "die" cmd 

;wait until done 

;exit if error 


;enable alarm setting 


tex 


CHG019 
CHG019 
CHG019 
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2414| 4281 CLR.L D1 

2416| 1239 OOFC C1C3 MOVE.B CYCLVAL,D1 ;get desired shutdown time 
241C| 703C MOVEQ #60,D0 ;multiply by 60 for seconds 
241E| C2C0 MULU DO,D1 

2420| 700C MOVEQ #12 ,D0 ;rotate to send as alarm value 
2422| E1B9 ROL.L DO,D1 

2424| 

2424| 227C OOFC C1B1 MOVE.L #ALRMSAV,A1 

242A| 03C9 0000 MOVEP.L D1, (A1) ;save alarm value 

242E| 7405 MOVEQ #5,D2 75 digits for alarm value 
2430| 6134 BSR.S TODSET 

2432| 6518 BCS.S  SETERR2 

2434 | 

2434 | ; Make parameter memory valid 

2434| 103C OOOF MOVE.B #PC,DO ;set power-cycle boot code 
2438| 6100 F414 BSR SAV2PM ;and go set param mem 

243C | ; And finally send power-off cmd 

243C| 7023 MOVEQ #523,D0 ;set up enable/power off cmd 
243E| 6100 E516 BSR COPSCMD ;send it 

2442| 6508 BCS.S  SETERR2 

2444| 4E71 SELF NOP 

2446| 60FC BRA.S SELF ;goodbye ... 

2448 | 

2448| 703D SETERR1 MOVEQ  #SERR1,D0 ;set error code 

244A| 6002 BRA.S DSPERR ;and go display 

244C| 

244C| 703E SETERR2 MOVEQ  #SERR2,D0 j;set error code 

2445 | 

244E | DSPERR 

244E | .IF USERINT = 0 

2445 | . ELSE 

244E| 45FA 14FB LEA IOBRD ,A2 ;set icon ptr 

2452| 6100 1086 BSR DSPERRICON ;display it 

2456| . ENDC 

2456| 

2456| 6100 FICA BSR DSPCODE 

245A| 6000 0140 BRA MONITOR jand exit to monitor 

245E | 

245E | ; Error routine if disk cmd not taken 

245E | 

245E| 08C7 0011 CMDERR BSET #DISK,D7 ;set error bit 

2462| 6000 EF36 BRA TSTCHK ;and exit 

2466| 

2466| . PAGE 

2466| Pea ee ee ae Se a a oe a ee eae 
2466 | ; Subroutine to send clock data. Assumes registers: 

2466 | ; DO = scratch use 


tex 
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2466| ; D1 = clock data 

2466 | ; D2 = digit count 

2466| a aaa an re ma a arg a ee 
2466| 

2466| E999 TODSET ROL.L #4,D1 ;get digit 

2468| 1001 MOVE.B D1,D0 ;set up for COPS as 1X 

246A| 0200 OOOF ANDI.B #SO0OF,DO ; where X = digit for clock 

246E| 0000 0010 ORI.B  #$10,D0 

2472| 6100 E4E2 BSR COPSCMD ;and send it 

2476| 6504 BCS.S SETXIT ;exit if error 

2478| 5342 SUBQ #1,D2 jdecr count 

247A| 66EA BNE.S  TODSET ;and loop until done 

247C| 4E75 SETXIT RTS 

247E | 

247E | . PAGE 

247E | Fas ae ee ee ee ee ee 
247E | ; Subroutine to do Twiggy testing 

247E | ; Expects 

247E | s DO = scratch use AO = shared memory address 
247E | 7 D1 = drive parameters Al = unused 

247E | 7 D2 = FDIR timeout value A2 = unused 

247E | ; D3 = unused A3 = VIA address for FDIR access 
247E | : D4 = loop count for reads 

247E | Sa Se Se ee er er Sasso ee eee 
247E | 

247E| 117C 0088 0002 TWGTST MOVE.B #S$88,CMD(A0) ;enable interrupts from both drives 
2484| 10BC 0086 MOVE.B #ENBLINT, (AO) ;do it 

2488| 6100 F9O7A BSR CMDCHK ;wait until done 

248C| 6536 BCS.S TERR ;exit if error 

248E| O8AB 0004 0004 BCLR #FDIR,DDRB1(A3) ;enable FDIR bit 

2494| 243C 00CO 0000 MOVE.L #FDIRTIME,D2 ;set timeout value for FDIR 

249A | 

249A| 03C8 0004 TWGLOOP MOVEP.L D1,DRV(A0) ; set disk ptrs 

249E| 4228 0002 MOVE.B #READS,CMD(A0O) ; set for read operation 

24A2| 10BC 0081 MOVE.B #EXRW, (AO) ; and go do it 

24A06| 6100 F996 BSR CHKFIN ; wait 

240A| 6516 BCS.S TOOLONG ; exit if timeout 

24AC| 1028 0010 MOVE.B STAT(AO) ,DO ; get disk return code 

24B0| 6100 F9CO BSR CLRFDIR ; clear interrupt indicator 

24B4| 650C BCS.S | TOOLONG 

24B6| 4A00 TST.B DO yany error? 

24B8| 660A BNE.S TERR ; and exit if error 

24BA| 5241 ADDQ #1,D1 ;incr track ptr 

24BC| 5344 SUBQ #1,D4 ;decrement count 

24BE| 66DA BNE.S TWGLOOP ;loop until done 

24C0| 4E75 RTS 

24C2 | 


tee 
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24C2 | 
24C4 | 
24C8 | 
24C8 | 
24CA | 
24CA | 
24CA | 
24CA | 
24CA | 
24CA | 
24CE | 
24D2 | 
24D4 | 
24D8 | 
24DC | 
24E2 | 
2456 | 
2456 | 
2458 | 
24EA | 
24EE | 
24F0 | 
24F0 | 
24F2 | 
24F4 | 
24F8 | 
24FA | 
24FA| 
24FC| 
24FE | 
2502 | 
2504 | 
2504 | 
2506| 
2508 | 
250C| 
250C| 
250C | 
250E | 
250E | 
250E | 
2510] 
2510] 
2510] 
2510] 
2510| 
2510] 


7027 
003C 


4E75 


47FA 
6100 
5246 
6100 
2038 
227C 
01c9 


E998 
7201 
6100 
5246 


E198 
7202 
6100 
5246 


E198 
7202 
6100 
5246 


E198 
7202 
6100 


7COC 


4E75 


0001 


1914 
1230 


EDCA 
01BC 
OOFC 
0000 


F18C 


F182 


F178 


F164 


C1A1 


TOOLONG MOVEQ #TIMOUT,DO ;set error code 
TERR ORI.B #501,CCR ;set indicator 
RTS jand exit 


DSPCLK LEA TIMMSG ,A3 ;get msg ptr 
BSR DSPMSG ;and display it 
ADDQ #1,D6 ;add extra space 
BSR READCLK ;go read clock 
MOVE.L CLKDATA+2,D0O ;get time (minus Ey/dd digits) 
MOVE.L #CLKSAVE,A1 jand save it 


MOVEP.L DO, (Al) 


ROL.L #4,D0 ;get day value 

MOVEQ #1,D1 ;set # of digits to display 
BSR OUTCH ;and display it 

ADDQ #1,D6 ;bump col ptr 

ROL.L #8,D0 ;get hour 

MOVEQ #2,D1 ;and display 

BSR OUTCH 


ADDQ #1,D6 


ROL.L #8,D0 ;display minute 
MOVEQ #2,D1 
BSR OUTCH 


ADDQ #1,D6 


ROL.L #8,D0 ;display seconds 
MOVEQ #2,D1 
BSR OUTCHR 


.IF USERINT = 1 
MOVEQ #PCCOL,D6 ;set col for window 
. ENDC 


RTS 


tex 
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2510| 
2510 
2514| 
2518 | 
251C| 
2522 | 
2526 | 
2528 | 
252C| 
252C| 
252C | 
252E| 
252E| 
252E | 
2532 | 
2534| 
2534| 
2534| 
2534| 
2534| 
2534| 
2534| 
2534| 
2534| 
2534| 
2534| 
2534| 
2534| 
2534| 
2534| 
2534| 
2534| 
2534| 
2534| 
2538 | 
253A| 
253E| 
2544| 
2544| 
2544 | 
2548 | 
254C| 
2550| 
2554| 
2558 | 
255C| 
255C| 


48E7 
STFA 
6100 
267C 
010B 
7204 
6100 


7CO0C 


4CDF 
4E75 


6100 
4287 
4238 
O8F8 


48E7 
6100 
6100 
6100 
6100 
4CDF 


colo 
190D 
11E6 
OOFC 
0000 


F144 


0803 


DBO4 


02A2 
0001 


8030 
F7EFC 
E55C 
E572 
0A76 
oco1 


C19D 


02A2 


TWGDSP MOVEM.L DO-D1/A3,- (SP) 
LEA TWGRSLT ,A3 
BSR DSPMSG 
MOVE.L #DSKCNTH,A3 
MOVEP (A3) ,DO 
MOVEQ #4,D1 
BSR OUTCHR 


.IF USERINT = 1 
MOVEQ #PCCOL ,D6 
. ENDC 


MOVEM.L (SP)+,D0-D1/A3 
RTS 


. ENDC 
. PAGE 


.IF USERINT = 0 
. ENDC 


. INCLUDE RM248 .M. TEXT 


, 


; Monitor code - first displays 


;save regs 
;output msg 


;set ptr to error count 
;get count 
;# of digits to display 


;set col for window 


;restore and exit 


requested icons, error codes or messages, 


; and then outputs menu of options to user and awaits input 


, 


INITMON 
.IF ROM4K = 0 
BSR SAVEREGS 
CLR.L D7 


CLR.B STATFLGS 
BSET #NOCONT , STATFLGS 


INIT1 
MOVEM.L DO/A2-A3,- (SP) 
BSR DSABLDSK 
BSR RSTKBD 
BSR CLRRST 
BSR CursorInit 
MOVEM.L (SP)+,D0/A2-A3 
INIT2 


;entry point for displays 


;Ssave registers 

;reset reg for error indicators 
; and status flags 

;set external entry indicator 


;Save incoming arguments 
;disable ints from both drives 
;reset keyboard 

;and clear reset 

;init cursor and mouse 
;restore arguments 


;internal entry point 


tex 
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255C| 
255C| 
2560| 
2560| 
2560| 
2560| 
2564 | 
2564 | 
2564 | 
2564 | 
2568 | 
2568 | 
2568 | 
2568 | 
256C| 
2570| 
2570| 
2574 | 
2574 | 
2576 | 
2578 | 
257C| 
257C| 
257E | 
2580| 
2582 | 
2584 | 
2586| 
2588 | 
258C| 
258E | 
258E | 
2592 | 
2592 | 
2594 | 
2594 | 
2594 | 
2596| 
2598 | 
2598 | 
2598 | 
2598 | 
259C| 
259C| 
259C| 
259C| 
259C| 


3E7C 0480 


48E7 8030 


6100 E320 


6100 OB6C 
6100 OBFA 
4CDF 0401 INIT3 
220A 


6704 
6100 OFB2 


4240 @0 
6712 

220A 

660A 

TATE 

7012 

6100 FOA6 

6004 


6100 F092 @1 


265F @2 


200B 
6704 


6100 1140 


MONITOR 


007C 0700 


.IF DEBUG = 0 
MOVEA #STKBASE , SP 
. ENDC 


.IF USERINT = 1 


MOVEM.L DO/A2-A3, - (SP) 


. ENDC 
. ENDC 
BSR SETVLTCH 


.IF USERINT = 0 
. ELSE 


BSR DRAWDESK 
BSR MAKEALERT 
MOVEM.L (SP)+,D0/A2 
MOVE.L A2,D1 

BEQ.S @0 

BSR DSPALRTICON 
TST DO 

BEQ.S @2 

MOVE.L A2,D1 

BNE.S @1 

MOVEQ #MSGROW,D5 
MOVEQ #CODECOL,D6 
BSR DSPDEC 
BRA.S @2 

BSR DSPCODE 
MOVE.L (SP)+,A3 
.ENDC 


MOVE.L A3,D0 


BEQ.S MONITOR 
.IF USERINT = 0 

. ELSE 

BSR DSPALRTMSG 
. ENDC 


.IF ROM4K = 0 
ORI #$0700,SR 


tex 


;reset stack pointer RMOO00 
;save incoming arguments 
; {(ROM4K} 


;set video latch 


;display the desktop 
;draw alert box (in case no icon display) 


;restore arguments 
;icon display? 

;skip if no 

;go do icon display 
;error code display? 
;skip if no 

;icon displayed? 
iskip if yes 

;else display error code on same line 
; aS error msg 
;display as decimal # 


;output error code under icon 


;restore msg ptr 


;message display? 


;go display message in alert box 


;entry point for no screen setup 


;disable all interrupts 
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25A0 | 
25A4 | 
25A4 | 
25A4 | 
25A4 | 
25A4 | 
25A4 | 
25A4 | 
25A4 | 
25A4 | 
25A4 | 
25A4 | 
25A4 | 
25A4 | 
25A8 | 
25AE | 
25B4 | 
25B4 | 
25BA | 
25BC | 
25C0 | 
25C6 | 
25C8 | 
25CC | 
25CE | 
25CE | 
25D2 | 
25D6| 
25DA| 
25DE | 
25E0 | 
25E4 | 
2556 | 
25EC | 
25EC| 
25EC | 
25EC | 
25EC | 
25EC | 
25EC| 
25EC | 
25F2 | 
25F4 | 
25F8 | 
25FC | 
2600 | 
2604 | 


6100 ELOA 


4278 
0238 
O8F8 


0838 
6630 
2038 
0280 
661E 
4278 
6618 


327C 
103C 
47FA 
347C 
4281 
6100 
6006 
O8F8 


0838 
6616 
327C 
103C 
47FA 
347C 
4281 


053A 
OOOF 
0006 


0001 


0180 
001E 


0188 
2956 
OOF1 
18A0 
2CE8 
0c98 


0001 


0000 


1876 
OOF4 
185A 
1c08 


tex 


BSR SETVCTRS ;set vectors for ROM space CHG028 
. ELSE 
. ENDC 
.IF ROM4K = 0 
; Now output first level menu, prompt line and cursor. Do preliminary 
; check to see if CONTINUE option can be displayed. This is the Customer 
; mode level of the monitor code. 
LEVEL1 
.IF USERINT = 1 
CLR RECTCNT ;clear active rectangle count 
02A2 ANDI.B #SOF,STATFLGS jinit flags 
02A2 BSET #BTN , STATFLGS ;set operating with buttons flag 
02A2 BTST #NOCONT,STATFLGS ;display continue? 
BNE.S OTHRBINS iskip if no 
MOVE.L STATUS,DO ;get test status 
3FFA ANDI.L #CONTMSK,DO ;mask don't cares 
BNE.S @l ;skip if error that disallows continuing 
TST BOOTMEM ;check boot memory area for R/W errors 
BNE.S @l ;skip if any errors 
MOVE #BTN2STRT ,A1 ;display CONTINUE button 
MOVE.B #KEY2,D0 ;with alternate keycode 
LEA CONTMSG , A3 ;and description 
MOVEA #BTN2MSG,A2 jand location RMOO0O 
CLR.L D1 ;don't append '...' string 
BSR MAKEBUTN 
BRA.S OTHRBTNS ;and go make other buttons 
02A2 @1 BSET #NOCONT,STATFLGS ;set indicator for no CONTINUE option 
OTHRBTNS 
. ENDC 
DOMENU 
.IF USERINT = 0 
. ELSE 
02A2 BTST #NORSTRT,STATFLGS ;display RESTART button? 
BNE.S @1 ;skip if not 
MOVE #BTNISTRT ,A1 ;else do display 
MOVE.B #KEY1,D0 
LEA RTRYMSG , A3 
MOVEA #BTN1MSG , A2 ; RMOO0O 
CLR.L D1 ;don't append '...' string 
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2606 | 
260A| 
260A| 
260E | 
2612 | 
2616 | 
261A| 
261C| 
2620| 
2620| 
2620| 
2620| 
2624 | 
262A | 
262A| 
262E | 
2632 | 
2636 | 
2636 | 
2636 | 
2636 | 
2636 | 
2636 | 
2636 | 
263A| 
263C | 
263C | 
263C | 
263C | 
2640| 
2644 | 
2644 | 
2644 | 
264A| 
264C| 
2650 | 
2652 | 
2652 | 
2652 | 
2654 | 
265A| 
265E| 
265E| 
265E| 
265E| 
2664 | 
2666 | 


6100 


327C 
303C 
47FA 
347C 
72EF 
6100 


6100 
O8F8 


6100 
6500 
6100 


0c00 
6608 


6100 
6000 


0838 
6612 
0c00 
660C 


4287 
4039 
6000 


0838 
666C 
0c00 


0C72 
3A36 
OOF2 
1884 
3DC8 


0C5C 


09EC 
0005 02A2 


061A 


00B6 
09B6 


OOF2 


OA9C 


F2B6 


0000 02A2 


OOF4 


OOFC E010 
DB2E 


0001 02A2 


OOF1 


@1 


GETL1 


tex 


BSR MAKEBUTN 

MOVE #BTN3STRT ,A1 ;display STARTUP button 

MOVE #KEY3 ,DO 

LEA STRTMSG , A3 

MOVEA #BTIN3MSG ,A2 ; RMO000 
MOVEQ #-1,D1 ;append '...' string 

BSR MAKEBUTN 


MOVE.L #KBDBFR,KBDQPTR ;init queue ptr 


BSR CursorDisplay ;display mouse cursor 
BSET #CHKCMD,STATFLGS ;require user keyboard input to be prefaced 
; by the CMD key 


BSR GETINPUT ;and go wait for input 
BCS GETERR ;exit if error 

BSR CursorHide ;xremove cursor from screen 
. ENDC 


; Check if input valid. If invalid, beep speaker. 


@2 


DORESET 


CONTCHK 


CMP.B #KEY3,D0 jalternate boot? 
BNE.S @2 


.IF USERINT = 0 


. ELSE 

BSR CLRDESK ;close the alert box 

BRA BOOTMENU ;and go display boot menu 
. ENDC 


BTST #NORSTRT,STATFLGS ;RESTART button displayed? 


BNE.S CONTCHK ;skip if not 

CMP .B #KEY1,D0O ;retry? 

BNE.S CONTCHK ;skip if not 

CLR.L D7 ;clear error reg RMOO0O 
TST.B SETUPON ;turn on setup bit RMOO0O 
BRA BEGIN3 jand restart diags RMOO0O 


.IF USERINT = 1 

BIST #NOCONT,STATFLGS ;continue option displayed? 
BNE.S @4 ;skip if not 

CMP.B #KEY2,D0 ;continue option selected? 
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266A| 
266C| 
266C| 
266C| 
266C| 
2670| 
2676| 
267A| 
267E| 
2682 | 
2682 | 
2688 | 
268C| 
268E | 
2692 | 
2692 | 
2692 | 
2696| 
269A| 
269C| 
269C| 
26A0 | 
26A2 | 
26A6 | 
26AA| 
26RE | 
26RE | 
26B0 | 
26B2 | 
26B6| 
26B6| 
26B8 | 
26BA| 
26BC | 
26C0 | 
26C4 | 
26C8 | 
26C8 | 
26CE | 
26D2 | 
26D2 | 
26D2 | 
26D2 | 
26D2 | 
26D2 | 
26D2 | 
26D6| 


6666 


6100 
0287 
2038 
0800 
6600 


0280 
6700 
2F00 
6100 


103C 
6100 
201F 


0800 
670C 
327C 
6100 
6000 


EE88 
4A00 
6600 


E488 
4A00 
670C 
327C 
6100 
6000 


4039 
6000 


0c00 
6700 


OA6C 
7000 
0180 
0000 
E100 


008F 
FO5C 


OAFO 


0070 


E2BE 


0002 


1DF6 


OECC 
E6BO 


EC3A 


1E12 
OEB2 
EA46 


O0OFC 
E930 


OOF6 
0064 


0000 


FFFF 


E01E 


, 


, 


@1 


@2 


@4 


BNE.S 


@4 


tex 


continue from point of failure 


CLRDESK 
#ALTBMSK ,D7 
STATUS , DO 
#MMU , DO 
VIA2TST 


#BOOTMSK ,DO 
BOOTCHK 
DO, - (SP) 
MAKETEST 


;clear desktop CHGO008 
;erase error indicators 

;get power-up status 

;MMU error? 

7yes - continue from VIA tests 


;check if error that continues to boot attempt 
iskip if yes 

;else save status 

;make test window 


do init for continue to other tests 


MOVE .B 
BSR 
MOVE .L 


BTST 
BEQ.S 
MOVEA 
BSR 
BRA 


. ENDC 


#$70 ,DO 
COPSCMD 
(SP) +,D0 


#VID ,DO 

@1 

#CPUSTRT ,A1 
INVICON 
PARTST 


#7,D0 
DO 
CONFIG 


#2,D0 

DO 

@2 

#IOSTRT ,A1 
INVICON 
DSKTST 


PARON 
IOTST 


.IF USERINT = 0 


. ENDC 


CMP .B 
BEQ 


#SKEY ,DO 
LEVEL2 


;turn off mouse 

;restore status 

;serial # error? 

;skip if not 

;display CPU icon 
;continue with parity test 
;skip other CPU errors 


;clock error? 
7yes - continue with config check 


;RS232 error? 
;skip if not 
;else display I/O board icon 


;cont with disk test 


;must be memory error - reenable parity 
; and continue with I/O board testing 


; service mode desired? 
; skip if yes 
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26DA| 
26DA| 
26DA| 
26DA| 
26DA| 
26DE | 
26DE | 
26DE | 
26DE | 
26E2 | 
26E6 | 
26E6 | 
26E6 | 
26E6 | 
26E6 | 
26EA | 
26EC| 
26F0| 
26F0 | 
26F0 | 
26F0 | 
26F0 | 
26F0 | 
26F0 | 
26F0 | 
26F0 | 
26F0 | 
26F2 | 
26F2 | 
26F6| 
26FA| 
26FC | 
2700 
2702 | 
2702 | 
2702 | 
2702 | 
2702 | 
2702 | 
2702 | 
2702 | 
2702 | 
2702 | 
2702 | 
2702 | 
2702 | 
2706| 


6100 0030 


6100 092E 
6000 FF46 


45FA 1263 
97CB 
6000 FE6E 


4280 


2078 0110 
323C 1FFD 
20C0 
51C9 FFFC 
4E75 


6100 0634 
4A00 


tex 


; Indicate invalid by beeping speaker 


GETL1XIT 
BSR SQUAWK ; sorry charlie 
.IF USERINT = 0 
. ELSE 

LEV1LOOP 
BSR CursorDisplay ;redisplay cursor 
BRA.S GETL1 ;go get more input 


; Error exit - go output error and return to level 1 


GETERR 
LEA IOBRD , A2 ;get I/O board icon 
SUBA.L A3,A3 ;no error message 
BRA INIT2 
. ENDC 
. ENDC ; {ROM4K} 
. PAGE 


; Subroutine to clear video page of memory or write arbitrary long word 
7; pattern to entire screen (WRTSCRN entry point). 


CLRSCRN CLR.L DO ; write 0's for white screen 
WRTSCRN ; entry pt for write to screen (assumes DO set) 
MOVE.L SCRNBASE,AO ; get screen base address 
MOVE #HEX8K-3 ,D1 ; set longs count 
@1 MOVE.L DO, (AO) + ; clear for video page 
DBF D1,@1 
RTS 


.IF ROM4K = 0 


.IF USERINT = 0 
. ENDC 
. PAGE 
.IF USERINT = 0 
. ELSE 


BSR WI4 INPUT 
TST.B DO ;ignore "up" transitions and mouse data 
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2708 | 
270A| 
270C| 
270C| 
270C| 
270C| 
270C| 
270C| 
270C| 
270C| 
270E | 
2712 | 
2714| 
2718 | 
271A| 
271A| 
271A| 
271A| 
271A| 
271A| 
271A| 
271A| 
271A| 
271E| 
2722 | 
2724 | 
2728 | 
272C | 
272E | 
2730| 
2732 | 
2736 | 
273A| 
273C| 
273C | 
273C| 
273C| 
273C| 
273C | 
273C| 
273C | 
273C | 
273C| 
273C| 
2740| 
2740 | 
2740| 


6AF8 
4E75 


7020 
323C OOFA 
7404 
6100 E3E0 
4E75 


48E7 4080 
41FA 119C 
3200 
0241 OO7F 
0441 0020 
6A04 
7002 
6004 
1030 1000 
4CDF 0102 
4E75 


6100 099C 


tex 


BPL.S  ReadKey 
RTS ;exit with data 


SQUAWK MOVEQ  #5S20,D0 ; set frequency 
MOVE #250 ,D1 ; 1/8 sec duration 
MOVEQ #4,D2 ; low volume 
BSR TONE ; and go do it 
RTS 


; Subroutine to convert keycodes to Ascii 
; Inputs: DO = keycode (word) 
DO = Ascii (byte) or =2 if input invalid 


; Outputs: 
KeyToAscii 
MOVEM.L D1/A0,- (SP) ;save regs 
LEA AsciiTable ,AO ;keycode to ascii table 
MOVE DO,D1 ;keycode to convert 
ANDI #S007F,D1 ;ensure valid 
SUBI #32 ,D1 ;decrement for table RMOO00 
BPL.S @1 ;skip if valid RMO000 
MOVEQ #2,D0 ;else set for invalid char RMOO0O 
BRA.S @2 r RMOO0O 
@1 MOVE.B 0(A0,D1.W) ,DO ;get ascii 
@2 MOVEM.L (SP)+,D1/A0 ;restore 
RTS ;exit 
. PAGE 


LEVEL2 
.IF USERINT = 0 
. ELSE 
BSR CLRDESK ;display the desktop 


.IF BMENU = 0 
. ENDC 
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2740| 

2740 | ; Make window for output, and display menu line and pull down menu 
2740| 

2740| 6100 00D2 BSR MAKESVCW ;output service window 
2744| 6100 005A DSPMENU BSR WRTIMENU 

2748 | 

2748 | ; do final initialization and await input 

2748 | 

2748| 6100 08C4 BSR CursorDisplay ;display cursor 

274C | Perma S SSS SS Ss Sr ea ee eS eee 
274C| ; Program NMI key 

274C | ; 

274C| : MOVEQ #S5A,D0 ;set / key for NMI 
274C| 7 BSR COPSCMD 

274C | 3 MOVEQ #$61,D0 

274C| ; BSR COPSCMD 

274C | (UTS SSS CaS SSS eee See SS ese es Sen re reese 
274C | 

274C| GETLEV2 

274C| 6100 04F8 BSR GETINPUT ;and go await input 
2750| 6594 BCS GETERR ;exit if error 

2752| 6100 0896 BSR CursorHide ;else remove cursor from screen and go 
2756 | ; analyze input 

2756 | 

2756| . ENDC 

2756 | 

2756 | .IF USERINT = 0 

2756| . ENDC 

2756 | 

2756 | ; Check for valid input 

2756 | 

2756| OCOO OOF4 CMP.B #KEY1,D0 ; display memory? 
275A| 6700 OODA BEQ DSPMEM 

275E| OCOO OOF1 CMP.B #KEY2,D0 ; set memory? 

2762| 6700 013E BEQ SETMEM 

2766 | 

2766| OCOO OOF2 CMP .B #KEY3 ,DO ; call routine 

276A| 6700 019C BEQ CALLRTN 

276E | 

276E | .IF ROM16K = 1 

276E| 0COO O0F3 CMP.B #KEY4,D0 ; loop? 

2772| 6700 01C0 BEQ LOOPTST 

2776| . ENDC 

2776| 

2776| OCOO O0E4 CMP.B #KEY5,D0 ; video adjust? 

277A| 6700 0278 BEQ VIDAJST 

277E | 


tex 
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277E | .IF BURNIN = 1 

277E| 0COO OOE1 CMP.B #KEY6,D0 ; power cycle? 

2782| 6700 02E8 BEQ PowerCycle 

2786 | . ENDC 

2786 | 

2786| OCOO O0E2 CMP.B #KEY7,DO 7; quit? 

278A| 6610 BNE.S  @1 

278C| O8B8 0000 02A2 BCLR #NORSTRT,STATFLGS ;clear no reset status flag 

2792| 4280 CLR.L DO ;set parms for levell - no error code 
2794| 95CA SUBA.L A2,A2 7no icon display 

2796| 97CB SUBA.L A3,A3 7no message display 

2798| 6000 FDC2 BRA INIT2 ;and go back to levell 

279C | 

279C| 6000 02D6 @1 BRA INVALID ; else invalid input 

27A0 | 

27A0 | . PAGE 

27A0 | .IF USERINT = 1 

27A0 | SES SH SS Re =SSs5 S35 3535 S5 555555 $$ 55-3958 3532-55-53 -=25-555=-------=-S-5--=--= 
27A0 | ; Routine to display the preliminary pull-down menu 

27A0 | lca aa a tao mc aaa cu ceca om a 
27A0 | 

27A0 | WRTMENU 

27A0 | .IF BMENU = 0 

27A0 | . ELSE 

27A0| 4278 053A CLR RectCnt ;clear active rectangle count 

27A4| 0238 OOOF 02A2 ANDI.B #SOF,STATFLGS ;init flags 

27AA| 7012 MOVEQ #MENUWIDTH,DO ;set menu parms 

27AC| 7207 MOVEQ #MITEMS,D1 ;set # of items in menu 

27AE| C2FC 000B MULU #MENULEN , D1 ;length depends on # of items 

27B2| 47FA 170D LEA MENUEDG , A3 ;set ptr for menu heading 

27B6| 6118 BSR.S §DSPMENUBOX ;go display blank menu box w/ heading 
2788 | 

27B8| 7807 MOVEQ #MITEMS,D4 ;set # of items in menu 

27BA| 327C 05A2 MOVE #MENUSTRT , Al ;set menu starting point 

27BE| 347C 0658 MOVE #MENU1MSG , A2 ;menu items display address 

27C2| 47FA 1705 LEA DISPMSG ,A3 ;set ptr to menu entries 

27C6| 49FA 1771 LEA MENUID ,A4 ;ptr to id's for menu entries 

27CA| 6100 OB9E BSR MAKEMENU ;go fill in the menu 

27CE | 

27CE | . ENDC ; {MENU} 

27CE | 

27CE| 4E75 RTS 

27D0 | 

27D0 | .IF BMENU = 1 

27D0 | pRSsSossasees oss 5 SoS Sa Sen ae ee eS eee Se Seah ees See se eae SSeS a eaSesasese 
27D0 | ; Subroutine to display blank menu box with heading 

27D0 | ; Inputs: 


tex 
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tex 


27D0 | iH DO = menu width 

27D0 | it D1 = menu length 

27D0 | ; A3 = menu heading 

27D0 | ; Outputs: 

27D0 | 7 None 

27D0 | ; Side Effects: 

27D0 | 7 D2/A1,A3 trashed 

27D0 | aa al tt nn a ce oe oa 
27D0 | 

27D0 | DSPMENUBOX 

27D0| 48E7 C000 MOVEM.L DO-D1,- (SP) ;save regs 

27D4| O8F8 0007 02A2 BSET #MENU,STATFLGS ;set working with menu flag 

27DA| 6100 0938 BSR CLRMENU ;first clear the menu bar 

27DE| 5441 ADDQ #2,D1 ;bump length for bottom border 

27E0| 327C 05A2 MOVE #MENUSTRT , Al ;set menu starting point 

27E4| 6100 OA0O BSR MAKEBOX ;display the box 

27E8| 327C 0111 MOVEA #MENULOC,A1 ;set up menu heading display point 
27EC| 6100 0C18 BSR GETROWCOL ;convert to screen ptrs 

27F0 | 

27F0| 4281 CLR.L D1 ;don't display '...' string 

27F2| 6100 OE40 BSR DSPSTRING ;display the title 

27F6| 97CA SUBA.L A2,A3 ;get length of menu title 

27F8| 240B MOVE.L A3,D2 ;move to working reg 

27FA| 5442 ADDQ #2,D2 ;add extra bytes to cover entire title 
27FC| 0202 OOFE ANDI.B #SFE,D2 ;ensure it's even 

2800| 3002 MOVE D2 ,D0 ;save as width of menu heading "box" 
2802| 720E MOVEQ #14,D1 ;set height for "box" 

2804| 74FF MOVEQ #-1,D2 ;set £111 pattern 

2806| 92FC 005B SUB.W #91,Al1 ;decrement start pt by 1 row + 1 byte 
280A| 6100 0922 BSR INVERSE ;go hilite it 

280E| 4CDF 0003 MOVEM.L (SP)+,D0-D1 ;restore regs 

2812| 4E75 RTS 

2814 | 

2814 | . ENDC ; {MENU} 

2814 | 

2814 | fe ee ea ee eg a ee ee Oe ae 
2814 | ; Subroutine to create Service mode window 

2814 | Pe ee ae eee ae ee ee 
2814 | 

2814 | MAKESVCW 

2814| 327C OEDA MOVEA #SVCSTRT,A1 ;left corner point RMOO0O 
2818| 7042 MOVEQ =#SVCWIDTH,DO ;width of window 

281A| 223C 0000 0140 MOVE.L #SVCHIGH,D1 ;height 

2820| 47FA D830 LEA SVCMSG , A3 ;title 

2824| 6100 O9A0 BSR MAKEWINDOW ;go do it 

2828| 31FC 003E 0300 MOVE #FIRSTROW,CRTROW ;init screen ptrs 

282E| 31FC 0018 0302 MOVE #FIRSTCOL,CRTCOL 


@ "27 computer Boot ROM 2.48 Listing ¢ 171 of 265 


2834 | 
2836| 
2836 | 
2836 | 
2836| 
2836| 
2836| 
2836| 
2836| 
283A | 
283E | 
2840| 
2840| 
2840| 
2840| 
2844 | 
2844 | 
2844 | 
2848 | 
284A | 
284A | 
284A | 
2845 | 
2850| 
2854 | 
2856| 
2856| 
285A| 
285E | 
285E| 
285E| 
285E| 
2860| 
2864 | 
2868 | 
286C| 
286E| 
2870| 
2872 | 
2872 | 
2874 | 
2874 | 
2874 | 
2874 | 
2876 | 
2878 | 
287C| 


4E75 


6100 
6500 
4243 


6700 


0882 
2442 


6100 
6506 
0co0 
6708 


47FA 
6100 


7204 
6100 
6500 
6100 
4243 
6702 
6002 


7410 


200A 
7208 


036C 


0238 


0240 


0000 


034A 


0020 


1774 


0236 


0350 
020E 
02E6 


6100 EDFE 


.ENDC ; {USERINT} 


DSPMEM BSR GETA ;go get address 
BCS INVALID 
TST D3 7if no input go back to menu line 


.IF USERINT = 0 


. ELSE 

BEQ LEV2LOOP 

. ENDC 

BCLR #0,D2 ;ensure even address 
MOVE.L D2,A2 ;and save 


; Check for all input on one line 


BSR GETCH ;xead queue to see if more input 
BcS.S @1 ;skip if not 
CMPI.B #' ',DO ;must be a space separator 
BEQ.S  RDCNT ;skip if yes 
@1 LEA CNTMSG , A3 ;display count prompt 
BSR PROMPT 


; Decode count input and do display 


RDCNT MOVEQ #4,D1 ;go get count (max of SFFFF) 
BSR GETPARM 
BCS INVALID 
BSR PUTLF ;set display ptrs and space 1 line 
TST D3 ;set default count if no input 
BEQ.S @4 
BRA.S @5 

@4 MOVEQ #16,D2 ;set default count 


; Do display of memory 


@5 MOVE.L A2,D0 ;get display address 
MOVEQ #8,D1 jand display it 
BSR OUTCH 


tex 
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287C| 
287C| 
287C| 
287E | 
287E | 
2880 | 
2882 | 
2884 | 
2888 | 
288A | 
288C | 
288E | 
288E | 
2890 | 
2892 | 
2894 | 
2898 | 
289A| 
289A| 
289E | 
289E | 
289E | 
289E | 
28A2 | 
28A2 | 
28A2 | 
28A2 | 
28A2 | 
28A2 | 
28A2 | 
28A2 | 
28A2 | 
28A6 | 
28AA | 
28AC | 
28AC | 
28AC | 
28AC | 
28B0 | 
28B0 | 
28B0 | 
28B2 | 
28B2 | 
28B2 | 
28B6 | 
28B8 | 
28BC | 


5846 


7808 
301A 
7204 
6100 
5246 
5344 
66F2 


5182 
5182 
6F06 
6100 
60DA 


6100 


6000 


6100 
6500 
4243 


6700 


2442 


6100 
6506 
0c00 
6708 


EDF2 


O2BA 


02B4 


01E2 


0300 
01cc 


01D4 


02E2 


0020 


tee 


.IF USERINT = 0 


. ELSE 
ADDQ #4,D6 ;bump col for data display 
. ENDC 
MOVEQ #8 ,D4 ;set loop count 
@6 MOVE (A2)+,D0 ;read data word 
MOVEQ #4,D1 jdisplay it 
BSR OUTCH 
ADDQ #1,D6 ;add space 
SUBQ #1,D4 ;loop for one line 
BNE.S @6 
SUBQ.L #8,D2 j;decr data count RMOO0O 
SUBQ.L #8,D2 ; RMO000 
BLE.S Q@7 ;exit if done 
BSR PUTLF ;go to next line 
BRA.S @5 ;and continue until done 
@7 BSR PUTLF ;add blank line 


.IF USERINT = 0 

. ELSE 

BRA LEV2LOOP ;continue level2 loop 
. ENDC 


; Do set memory operation - enables setting of bytes, words or longs 
; up to 24 bytes max. Decodes data length to determine type of operation. 


SETMEM BSR GETA ;go get address 
BCS INVALID jabort if invalid 
TST D3 yany input? 


.IF USERINT = 0 


. ELSE 

BEQ LEV2LOOP ;abort if none 

. ENDC 

MOVE.L D2,A2 ;save target address 


; Check for all input on one line 


BSR GETCH ;xread queue to see if more input 
Bcs.S @1 iskip if not 

CMPI.B #' ',DO ;must be a space separator 

BEQ.S RDDTA ;skip if yes 
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28BE | 

28BE| 47FA 1705 @1 LEA DATAMSG , A3 ;else output data prompt 
28C2| 6100 01CE BSR PROMPT 

28C6 | 

28C6 | ; Decode parameter input and do operation 

28C6| 7208 RDDTA MOVEQ’ #8,D1 ;get max of 8 chars 

28C8| 6100 02E8 BSR GETPARM 

28CC| 6500 01A6 BCS INVALID 

28D0| 4A43 TST D3 y;any input? 

28D2 | 

28D2 | .IF USERINT = 0 

28D2 | . ELSE 

28D2| 6700 O01AE BEQ LEV2LOOP 

28D6| . ENDC 

28D6| 

28D6 | 7; write data to memory 

28D6| 

28D6| OCO3 0002 CMP.B #2,D3 ;first test for byte operation 
28DA| 6E04 BGT.S @1 

28DC| 14C2 MOVE.B D2, (A2)+ ;write byte 

28DE| 6014 BRA.S &@3 

28E0| 200A @1 MOVE.L A2,D0 7ensure even address for word or long op 
28E2| 0880 0000 BCLR #0,D0 

28E6| 2440 MOVE.L DO,A2 

28E8| 0C0O3 0004 CMP .B #4,D3 ;test for word op 

28EC| 6E04 BGT.S @2 

28EE| 34C2 MOVE D2, (A2)+ ;write word 

28F0| 6002 BRA.S @3 

28F2 | 

28F2| 24C2 @2 MOVE.L D2, (A2)+ ;write long 

28F4 | 

28F4| 6100 02A0 @3 BSR GETCH ;read input queue 

28F8| 650A BCS.S @4 ;skip if none 

28FA| OCOO 0020 CMPI.B #' ',DO ;must be a space separator 
28FE| 6600 0174 BNE INVALID ;exit if error 

2902| 60C2 BRA.S RDDTA ;else continue operation 
2904 | 

2904 | @4 

2904 | .IF USERINT = 0 

2904 | . ELSE 

2904| 6000 017C BRA LEV2LOOP ;continue level2 loop 

2908 | . ENDC 

2908 | 

2908 | . PAGE 

2908 | a ea a aa Tan ae ea ed ca 
2908 | ; Do 'call' function - ensures address is on word boundary. 
2908 | PR StS Sse eee ee ee ee eS er ee eres ee eee 


tex 
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2908 | 

2908| 6100 029A CALLRTN BSR GETA igo get address 

290C| 6500 0166 BCS INVALID 

2910| 4A43 TST D3 ;abort if no input 

2912 | 

2912 | .IF USERINT = 0 

2912 | . ELSE 

2912| 6700 016E BEQ LEV2LOOP ;continue level2 loop 

2916| . ENDC 

2916| 

2916| 0882 0000 BCLR #0,D2 ;else ensure on word boundary 
291A| 21C2 01F8 MOVE.L D2,A6SAV ;save for jump 

291E | 

291E | ; load registers from save area before jumping 

291E| 

291E| 4DF8 01C0 LEA DATARGS , A6 ;get ptr 

2922| ACDE 3FFF MOVEM.L (A6)+,D0-D7/A0-A5 ;load regs 

2926| 2C78 O1F8 MOVE.L A6SAV,A6 ;restore address 

292A| 4E96 JSR (A6) ;and do call 

292C| 6100 D70C BSR SAVEREGS ;save registers on exit 
2930| 

2930 | .IF USERINT = 0 

2930 | . ELSE 

2930| 6000 0150 BRA LEV2LOOP ;continue level2 loop 

2934 | . ENDC 

2934 | 

2934 | .IF ROM16K = 1 

2934 | . PAGE 

2934 | Patna pa So Se So ee ee ee eo ae eo ee 
2934 | 7 Do loop on diagnostic 

2934 | pg ee Ro ee eee er eee 
2934 | 

2934 | LOOPTST 

2934 | .IF USERINT = 1 

2934| 6100 FEDE BSR MAKESVCW ;redraw service window 

2938| 6100 0216 BSR PUTLF ;add blank line and setup ptrs 
293C| 47FA 1602 LEA TSTMENU , A3 ;set ptr to test choices 
2940| 7818 MOVEQ =#FIRSTCOL,D4 ;set left margin 

2942| 6100 ODBC BSR DSPMSG ;and go do display choices 
2946| . ENDC 

2946| 

2946| 47FA 168C LEA TSTMSG ,A3 ;display test routine prompt 
294A| 6100 0146 BSR PROMPT 

294E| 6500 0124 BCS INVALID ;skip if bad input 

2952| 4A43 TST D3 y;any input? 

2954| 

2954 | .IF USERINT = 0 


tex 
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2954 | 
2954| 
2956| 
295A| 
295E| 
295E| 
295E| 
2960| 
2964 | 
2964 | 
2966| 
296A 
296E| 
2972 | 
2974| 
2978 | 
2978 | 
2978 | 
2978 | 
2978 | 
2978 | 
2978 | 
2978 | 
2978 | 
2978 | 
2978 | 
2978 | 
2978 | 
2978 | 
2978 | 
2978 | 
2978 | 
2978 | 
297A| 
297E| 
2982 | 
2984 | 
2988 | 
298A | 
298E | 
2990| 
2990| 
2994 | 
2996| 
299A| 
299C| 
29A0 | 


6608 
6100 
6000 


5343 
6600 


7201 
6100 
0c02 
6200 
5342 
6B00 


2F02 
6100 
6100 
241F 
0c02 
6C06 
327C 
601C 


0c02 
6C06 
327C 
6010 


6C06 


FEBC 
0126 


0112 


024A 
000C 
0104 


OOFE 


075E 
0800 


0004 


1DF6 


000A 


1E12 


. ELSE 
BNE.S @0 
BSR MAKESVCW 
BRA LEV2LOOP 
. ENDC 

che) SUBQ #1,D3 
BNE INVALID 
MOVEQ #1,D1 
BSR GETPARM 
CMP .B #MAXTEST , D2 
BHI INVALID 
SUBQ #1,D2 
BMI INVALID 


; Program NMI key to exit loop 


zy LEA LOOPEND , A3 

; MOVE.L A3,NMIVCT 

i MOVEQ #$5A,D0 

; BSR COPSCMD 

; MOVEQ #$61,D0 

; BSR COPSCMD 
.IF USERINT = 1 
.IF FULLSCC = 0 
.ENDC 


MOVE.L D2,-(SP) 


BSR CLRDESK 
BSR MAKETEST 
MOVE.L (SP)+,D2 
CMP.B #4,D2 
BGE.S @1 
MOVEA #CPUSTRT,A1 
BRA.S @4 

@1 CMP.B  #10,D2 
BGE.S @2 
MOVEA #IOSTRT,A1 
BRA.S @4 
BGE.S @31,D2 


tex 


;skip if yes 
;else redraw service window 
;and return to level 2 


7ensure only one char input 
;skip if more than one 


;go get one character of input 


;check if within max range 

;exit if not 

;decr for index 

;skip if negative (i.e., 0 was input) 


;set NMI vector 


;set / key for NMI 


;save test # 

;clear desktop except for menu bar 
;draw test window 

;restore test # 

;CPU test? 

;skip if not 

;else set ptr for CPU board icon 
;and go hilite it 


RMO000 


7;1/O board test? 


;set ptr for I/O board icon RMOO0O 


;memory test? 
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29A2 | 
2926 | 
29A8 | 
29AC | 
29AC | 
29B0 | 
29B0 | 
29B0 | 
29B2 | 
29B6 | 
29BA | 
29BE | 
29C0 | 
29€0 | 
29C0 | 
29C0 | 
29C0 | 
29C0 | 
29C0 | 
29C0 | 
29C0 | 
29C0 | 
29C0 | 
29C0 | 
29C0 | 
29C0 | 
29C6 | 
29CA | 
29CA | 
29CA | 
29CA | 
29CA | 
29D2 | 
29D4 | 
2908 | 
29DC | 
29DC | 
29DC | 
29DC | 
29DE | 
29E0 | 
29E2 | 
2984 | 
2956 | 
2958 | 
29EA | 
29EA | 


327C 
6004 
327C 


6100 


D442 
08C7 
41FA 
DOFO 
4EDO 


4039 
6000 


O8F9 
7002 
6100 
6000 


D7B8 
FFE4 
E1C6 
E380 
DDA4 
DED4 
DFOE 


1E04 


1E20 


OBC6 


001F 
0024 
2000 


OOFC 
D7E8 


0006 


EE78 
E434 


;set ptr for memory board icon RMOO0O 
;else must be I/O slot card RMO00 
;display in test window 

;double test # for table index 


;set loop flag 
;and jump to requested routine 


;parity error? 

;skip if yes to report error 
;else restore stack 

;and redisplay service mode 


; special entry points for routines that require initial setup 


MOVEA #MEMSTRT , Al 
BRA.S @4 
@3 MOVEA #XCRDSTRT,A1 
@4 BSR INVICON 
. ENDC 
ADD D2,D2 
BSET #LOOP ,D7 
LEA LOOPTBL , AO 
ADD 0(A0,D2.W) ,AO 
JMP (AO) 
; Loop exit via NMI routine 
;LOOPEND BIST #1, STATREG 
; BEQ NMI 
; MOVE.L #STKBASE,SP 
; BRA LEVEL2 
MMUTSTE1 
E010 TST.B SETUPON 
BRA MMUTST 
.IF FULLSCC = 0 
. ENDC 
OOFC C18D MEMTST3 BSET #6 ,MEMCODE 


MOVEQ =#PROFILE,DO 
BSR SAV2PM 
BRA MEMLOOP 


;turn on SETUP bit for MMU tests 
;go do main test 


;set for extended memory test 

;and for normal boot default (Profile) 
;save in parameter memory 

;and go do memory testing 


7; jump table for looping on start-up diagnostics 


LOOPTBL .WORD ROMTST-LOOPTBL 
. WORD MMUTSTE1-LOOPTBL 
. WORD VIDCHK-LOOPTBL 
. WORD PARTST-LOOPTBL 
. WORD VIA2TST-LOOPTBL 
. WORD VIA1CHK-LOOPTBL 
. WORD COPSENBL-LOOPTBL 


.IF FULLSCC = 1 


ROM checksum test 

MMU test 

Video test 

Parity logic test 
Parallel port VIA test 
Keyboard port VIA test 
I/O board COPS test 
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29EA| E62C .WORD SCCTEST-LOOPTBL 78 = SCC test 

29EC | . ELSE 

29EC | . ENDC 

29EC | 

29EC| E730 . WORD DSKTST-LOOPTBL 79 = disk controller test 
29EE| E8BO .WORD CLKTST-LOOPTBL ;A = clock test 

29F0| FFEE -WORD MEMTST3-LOOPTBL 7B = memory test 

29F2| E91A -WORD CONFIG2-LOOPTBL 7;C = configuration check 
29F4 | 

29F4 | . ENDC 

29F4 | . PAGE 

29F4 | a a a ee ag kl hn td et a a ae lets 
29F4 | ; Display video adjust pattern 

29F4 | Fg eg a a ee ee ee 
29F4 | 

29F4| 70FF VIDAJST MOVEQ #-1,D0 ;first erase the screen 

29F6| 6100 FCFA BSR WRTSCRN 

29FA | 

29FA| ; Next draw the horizontal lines 

29FA | 

29FA| 4280 CLR.L DO ;set scan line 

29FC| 6128 BSR.S DRWHORZ igo draw white line 

29FE| 701B MOVEQ #27 ,D0 ;set next scan line 

2A00| 721C MOVEQ #28 ,D1 ;set increment value also 

2A02| 740C MOVEQ #12 ,D2 ;set line count 

2A04| 6120 @1 BSR.S DRWHORZ ;draw some more 

2A06| D041 ADD D1,D0 ;incr to next line position 
2A08| 51CA FFFA DBF D2,@1 ;loop until done 

2A0C | 

2A0C | ; Now draw the vertical lines 

2A0C | 

2A0C| 4280 CLR.L DO ;set pixel # 

2A0E| 6130 BSR.S DRWVERT ;draw a vertical line 

2A10| 702C MOVEQ #44,D0 ;set next pixel position 

2A12| 722D MOVEQ #45,D1 ;set incr value also 

2A14| 740F MOVEQ #15 ,D2 ;set line count 

2A16| 6128 @2 BSR.S DRWVERT ;draw some more 

2A18| D041 ADD D1,D0 ;incr to next pixel position 
2A1A| 51CA FFFA DBF D2,@2 ;loop until done 

2A1E | 

2A1E | ; Wait for any keystroke to terminate display 

2A1E | 

2A1E| 6100 FCE2 BSR READKEY 

2A22| 6000 FD18 BRA LEVEL2 ;return to menu display 

2A26| 

2A26| . PAGE 

2A26 | I a a al a a a a aa a alt a 


tex 
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2A26 | ; Subroutine to draw horizontal lines. Requires inputs: 

2A26 | 7 DO = scan line (0 to 363 decimal) 

2A26 | ; $110 = base address of screen 

2A26| a aa a al 
2A26| 

2A26| 48E7 C080 DRWHORZ MOVEM.L DO/D1/A0,-(SP) ;save regs 

2A2A| 725A MOVEQ #90,D1 ;line length in bytes 

2A2C| COC1 MULU D1,D0O ;compute address offset 

2A2E| 2078 0110 MOVE.L SCRNBASE,AO ;get base screen address 

2A32| D1CO ADDA.L DO,AO0O ;add offset 

2A34| 4218 @1 CLR.B (AO) + ;draw the line 

2A36| 5341 SUBQ #1,D1 

2A38| 66FA BNE.S  @1 

2A3A| 4CDF 0103 MOVEM.L (SP)+,D0/D1/A0_ ;restore 

2A3E| 4E75 RTS 

2A40 | 

2A40| ae ae Se ee Ty BE ee Tn EE 
2A40 | ; Subroutine to draw vertical lines. Requires inputs: 

2A40 | : DO = pixel position (0 to 719 decimal) 

2A40 | ; $110 = base address of screen 

2A40| a aaa a aaa na ae 
2A40 | 

2A40| 48E7 FO80 DRWVERT MOVEM.L DO-D3/A0,-(SP) ;save regs 

2A44| 7208 MOVEQ #8,D1 ;pixels per byte 

2A46| 80C1 DIVU D1,D0 ;compute address offset 

2A48| 4282 CLR.L D2 

2A4A| 3400 MOVE DO ,D2 ;save offset 

2A4C| 2078 0110 MOVE.L SCRNBASE,AO ;get base screen address 

2A50| D1C2 ADDA.L D2,A0 ;add offset 

2A52 | 

2A52| 4840 SWAP DO ;get remainder 

2A54| 9240 SUB DO,D1 ;compute bit position to set 

2A56| 5341 SUBQ #1,D1 

2058 | 

2A58| 745A MOVEQ #90,D2 ;distance to next pixel 

2A5A| 363C 016C MOVE #364 ,D3 ;line length 

2A5E| 0390 @1 BCLR D1, (AO) ;draw the line 

2A60| D1C2 ADDA.L D2,A0 ;compute next pixel to set 

2A62| 5343 SUBQ #1,D3 

2A64| 66F8 BNE.S @1 ;loop until done 

2A66| 4CDF 010F MOVEM.L (SP)+,D0-D3/A0 ;restore 

2A6A| 4E75 RTS 

2A6C | 

2A6C | .IF BURNIN = 1 

2A6C | a aaa a a a a ee 
2A6C | ; Power cycle entry point - branches to cycling routine 

2A6C | aa a aaa aa Sa a a 


tex 
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2A6C | 
2A6C | 
2A6C | 
2A70 | 
2A74 | 
2A74 | 
2a74 | 
2A74 | 
2A74 | 
2A74 | 
2A74 | 
2A74 | 
2A78 | 
2A78 | 
2A78 | 
2A7C | 
2A80 | 
2A82 | 
2A82 | 
2A82 | 
2A86 | 
2A86 | 
2A8A | 
2A8E | 
2A92 | 
2A92 | 
2A92 | 
2A92 | 
2A92 | 
2A92 | 
2A92 | 
2A92 | 
2A92 | 
2A92 | 
2A92 | 
2A92 | 
2A92 | 
2A92 | 
2A92 | 
2A96 | 
2A9A | 
2A9E | 
2AA2 | 
2AA6 | 
2AA8 | 
2AAC | 
2AB0 | 


6100 
6000 


6100 


47FA 
6100 
6004 


6100 


6100 
6100 
6000 


48E7 
6100 
3A3C 
3C3C 
6100 
5442 
31C2 
6100 
6100 


066C 
F7D2 


FC96 


1561 
018C 


01A4 


FD18 
0582 
FCBC 


0620 
071A 
0018 
0018 
0974 


052E 
0C52 
0008 


PowerCycle 
BSR CLRDESK ;clear desktop 
BRA CHKPAS2 ;go start power cycle 
. ENDC 
. PAGE 


INVALID BSR SQUAWK ;that's a no no 
.IF USERINT = 0 
. ELSE 
LEA WHATMSG , A3 ;output question mark 
BSR DBOXDSPLY ;display in dialog box 


BRA.S INVXIT 


LEV2LOOP 
BSR CLRDBOX 7go remove dialog box 
INVXIT 
BSR WRIMENU ;redisplay pull-down menu 
BSR CursorDisplay ;redisplay cursor 
BRA GETLEV2 ;and go get more input 
. ENDC 


.IF ROM16K = 1 
.IF FULLSCC = 0 


. ENDC ; {FULLSCC} 
. ENDC 7 {ROM16K} 
. PAGE 

.IF USERINT = 0 

. ELSE 


PROMPT MOVEM.L D5-D6/A2,-(SP) ;save screen ptrs and target address 


BSR MAKEDBOX ;make dialog box 

MOVE #DBOXROW ,D5 ;set msg ptrs 

MOVE #DBOXCOL , D6 

BSR GETLENGTH ;get message length 
ADDQ #2 ,D2 ;incr for spacing 

MOVE D2 ,MSGLEN ;Ssave as message length 
BSR DSPMSG ;write msg 

BSR RDINPUT ;go handle input 


tex 
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2AB4 | 
2AB8 | 
2ABA | 
2ABA | 
2ABA | 
2ABA | 
2ABA | 
2ABA | 
2ABA | 
2ABA | 
2ACO | 
2AC2 | 
2ACA | 
2ACA4 | 
2AC8 | 
2ACC | 
2ACC | 
2ACE | 
2AD0 | 
2AD4 | 
2AD6 | 
2AD8 | 
2ADA | 
2ADC | 
2ADE | 
2AE2 | 
2AK6 | 
2AE8 | 
2AE8 | 
2AKC | 
2AEE | 
2AEE | 
2AF? | 
2AaF4 | 
2AF8 | 
2AFA | 
2AFA | 
2AFC | 
2B00 | 
2B04 | 
2B06 | 
2B06 | 
2808 | 
2808 | 
2B08 | 
2808 | 
2808 | 


4CDF 
4E75 


207C 
2248 
4283 


6100 
6100 


4A00 
67F4 
0c00 
6612 
4243 
67EA 
5343 
4221 
6100 
6100 
60DC 


0c00 
6718 


0c03 
6D06 
6100 
60CA 


5243 
6100 
6100 
60BE 


4E75 


0460 


0000 


FC3C 
FC50 


0008 


008C 
0096 


000D 


0030 


FC16 


0088 
0C38 


02Cc0 


MOVEM.L (SP) +,D5-D6/A2 
RTS 


;restore and exit 


; Subroutine to read keyboard input and save in buffer. 


; 48 characters. 


MOVE.L #KBDBFR,AO 
MOVE.L AO,Al1 


;set buffer ptrs 
;same for head and tail 


tex 


Accepts max of 


CLR.L D3 ;clear for result use 
READIN BSR READKEY ;get char 
BSR KeyToASCITI ;convert to ASCII 
TST.B DO ;ignore CMD, Option, Shift, Alpha lock 
BEQ.S READIN 
CMP.B  #BS,DO ;backspace key? 
BNE.S @2 
TST D3 yany input 
BEQ.S READIN ;no - ignore 
SUBQ #1,D3 ;decrement count 
TST.B - (Al) ;delete char from queue 
BSR PUTBS ;do backspace on screen 
BSR CLRIT ;clear char on screen 
BRA.S READIN ;and continue 
@2 CMP.B #RET,DO ;return key? 
BEQ.S @3 7; yes - exit 


;at max? 


;skip if no 
BSR SQUAWK ;else notify user 
BRA.S READIN ;and ignore input 
@4 ADDQ #1,D3 j;iner char count 
BSR ENQKBD ;queue it 
BSR DSPVAL ;and output it 
BRA.S READIN ;and continue read 
@3 RTS 
; SCROLL - move contents of Service Window up one whole line. 


Assumed 


; that we are at bottom line when called. D6 (column) and D5 (row) are 


; set to start of last line. 
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tex 


2B08 | 

2B08| 48E7 E080 SCROLL MOVEM.L DO-D2/A0,- (SP) ;save data regs and bfr ptr 
2B0C| 7A48 MOVEQ #FIRSTROW+ROWLINES ,D5 ;set beginning character row +1 
2B0E| 7C18 MOVEQ =#FIRSTCOL,D6 ; and beginning column 

2B10| 6100 0C08 BSR SETCRSR ;get address of screen 

2B14| 204E MOVE.L A6,A0 ;set as to ptr 

2B16| DOFC 0384 ADDA #<RBYTES*10>,A0 ;set from ptr down one character row RM000 
2B1A| 343C 001B MOVE #NROWS , D2 ;number of rows to move 

2B1E| 

2B1E| 323C 000A @1 MOVE #ROWLINES ,D1 ;number of pixel lines per character row 
2B22| 303C 0042 @2 MOVE #ROWLEN , DO ;length of a pixel line in window 

2B26| 3CD8 @3 MOVE (AO) +, (A6) + ;scroll it 

2B28| 5540 SUBQ #2,D0 ;do entire pixel line 

2B2A| 6EFA BGT.S @3 

2B2C | 

2B2C| 5245 ADDQ #1,D5 ;bump to next row 

2B2E| 7C18 @4 MOVEQ #FIRSTCOL,D6 ;set first col 

2B30| 6100 OBE8 BSR SETCRSR ;compute address 

2B34| 204E MOVE.L A6,A0 ;set as to ptr 

2B36| DOFC 0384 ADDA #<RBYTES*10>,A0 ;set from ptr down one character row RMOO0O 
2B3A| 5341 SUBQ #1,D1 ;do all pixel lines 

2B3C| 66E4 BNE.S @2 

2B3E | 

2B3E| 5342 SUBQ #1,D2 ;finished a character row 

2B40| 66DC BNE.S @1 ; loop until done 

2B42 | 

2B42| 3A3C 014C MOVE #LASTROW,D5 ;peg at bottom 

2B46| 3C3C 0018 MOVE #FIRSTCOL,D6 

2B4A| 4CDF 0107 MOVEM.L (SP)+,D0-D2/A0 ;restore data regs and bfr ptr 

2B4E| 4E75 RTS 

2B50 | 

2B50 | . PAGE 

2B50 | 

2B50 | ; PUTLF - advance to next row; this may cause a scroll if at bottom 
2B50 | 

2B50| 3A38 0300 PUTLF MOVE CRTROW,D5 ;get last state 

2B54| 7C18 MOVEQ #FIRSTCOL,D6 ;update column to left edge of window 
2B56| 0645 000A ADD #ROWLINES ,D5 ;bump row by number of pixel lines per row 
2B5A| 0C45 014C CMPI #LASTROW,D5 

2B5E| 6F02 BLE.S @9 ;skip if its ok 

2B60| 61A6 BSR.S SCROLL ; else, do a scroll operation 

2B62| 31C5 0300 @9 MOVE D5,CRTROW ;save updates 

2B66| 31C6 0302 MOVE D6,CRTCOL 

2B6A| 4E75 RTS 

2B6C | 

2BEC | ;  PUTBS - move cursor left one position. 

2BEC | ; Assumes location MSGLEN = left most column for window. 
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tex 


2B6C | 

2B6C| 5346 PUTBS  SUBQ #1,D6 

2B6E| BC78 052E CMP MSGLEN , D6 ;stop at left edge 

2B72| 6C04 BGE.S @9 

2B74| 3C38 052E MOVE MSGLEN , D6 

2B78| 4E75 @9 RTS 

2B7A| 

2B7A| ; Routine to erase data on screen 

2B7A| 303C 0020 CLRIT MOVE #' ',DO ; output a space 

2B7E| 6100 OBBA BSR DSPVAL 

2B82| 5346 SUBQ #1,D6 ; reposition col ptr 

2B84| 4E75 RTS ; and that's all there is... 

2B86 | 

2B86 | . ENDC 

2B86 | . PAGE 

2B86 | (RS ASS ass ae ee ee en ee ne ee ee ee eee 
2B86 | ; Subroutine to save keyboard input in buffer - ignores data if buffer full. 
2B86 | (ooo SSeS eae Sea ep ees ne Fe ee eS ee ee ee eee 
2B86 | 

2B86| 2F0A ENQKBD MOVE.L A2,-(SP) ;save working reg 

2B88| 347C 0300 MOVEA #KBDEND ,A2 ;get ptr to end of buffer RMOO0O 
2B8C| B5C9 CMPA.L Al1,A2 ; at end of buffer? 

2B8E| 6702 BEQ.S @9 ; exit if yes 

2B90| 12C0 MOVE.B_ DO, (Al) + ; else do save 

2B92| 245F @9 MOVE.L (SP)+,A2 ;restore 

2B94| 4E75 RTS 

2B96 | 

2B96 | pene an eee ee a ea oe Se eee ee ee pene See ese ae eee 
2B96 | ; This code gets the next byte from the keyboard queue and delivers it to 
2B96 | ; caller in DO. 

2B96 | aaa ag aaa aa aa a ag a aa xe a lo 
2B96 | 

2B96| B3C8 GETCH CMPA.L AO,Al ;check if any data 

2B98| 6704 BEQ.S @1 ;exit if none 

2B9A| 1018 MOVE.B (A0)+,D0 iget data 

2B9C| 6004 BRA.S @2 

2B9E| 003C 0001 @1 ORI.B  #$01,CCR ;set empty indicator 

2BA2| 4E75 @2 RTS 

2BA4 | 

2BA4 | . PAGE 

2BA4 | pi ee Be eS Oe Ee a PE RE SETS 
2BA4 | ; Subroutine to get address parameter 

2BA4 | Pe ee ee ae eee 
2BA4 | 

2BA4| 47FA 1415 GETA LEA ADDRMSG , A3 ;output prompt and get input 

2BA8| 6100 FEE8 BSR PROMPT 

2BAC| 7208 MOVEQ #8 ,D1 ;decode address (max of 8 digits) 
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2BAE| 6102 BSR.S GETPARM 

2BB0| 4E75 RTS 

2BB2 | 

2BB2 | . PAGE 

2BB2 | fe ee eae Se ees 
2BB2 | ; Subroutine to get input parameters. Reads Ascii values from keyboard 
2BB2 | ; buffer and calls conversion routine to return hex values. Stops after 
2BB2 | ; Yreading requested input or 'space' separator encountered. 
2BB2 | ; Inputs: D1 = max chars to read 

2BB2 | ; Outputs: D2 = value read 

2BB2 | : D3 = # of chars read 

2BB2 | ; Carry bit set if invalid chars. 

2BB2 | asa ae ae 
2BB2 | 

2BB2| 4283 GETPARM CLR.L D3 ;use for counter 

2BB4| 4282 CLR.L D2 ;use for result 

2BB6 | 

2BB6| 61DE READQ BSR GETCH ;check input queue 

2BB8| 652E BCS.S GETEXIT ;exit if no chars 

2BBA| OCOO 0020 CMPI.B #' ',DO ;space separator? 

2BBE| 6604 BNE.S @3 ;if not, go response 

2BCO| 4A20 TST.B - (AO) ;replace on queue 

2BC2| 6024 BRA.S GETEXIT jand exit 

2BC4 | 

2BC4| 0CO00 0030 @3 CMPI.B #'0',DO ;check if valid hex char 
2BC8| 6D24 BLT.S INVPARM 

2BCA| 0C00 0039 CMPI.B #'9',DO 

2BCE| 630C BLS.S OKCH ;OK if 0-9 

2BD0| OC0O0O 0041 CMPI.B #'A',DO ; or A-F 

2BD4| 6D18 BLT.S INVPARM 

2BD6| OC00O 0046 CMPI.B #'F',DO 

2BDA| 6E12 BGT.S INVPARM 

2BDC | 

2BDC| 6116 OKCH BSR.S CONVERT ;convert to hex digit 

2BDE| E98A LSL.L #4,D2 ;save char 

2BE0| 8400 OR.B DO ,D2 

2BE2| 5243 ADDQ #1,D3 ;bump counter 

2BE4| B203 CMP .B D3,D1 jat max? 

2BE6| 66CE BNE.S READQ ;continue if no 

2BE8 | 

2BE8| 023C OOFE GETEXIT ANDI.B #SFE,CCR ;clear error indicator 

2BEC| 6004 BRA.S  GETXIT2 ;and exit 

2BEE | 

2BEE| 003C 0001 INVPARM ORI.B  #S$01,CCR ;set error indicator 

2BE2 | 

2BF2| 4E75 GETXIT2 RTS 

2BF4 | 


tee 
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2BF4 | 
2BF4 | 
2BF4 | 
2BF4 | 
2BF4 | 
2BF4 | 
2BF8 | 
2BFA | 
2BFE | 
2c00 | 
2C00 | 
2c04 | 
2€08 | 
2C08 | 
2C0A | 
2C0A | 
2C0A | 
2C0A | 
2C0A | 
2C0A | 
2C0A | 
2C0A | 
2C0A | 
2C0E | 
2C12 | 
2C16| 
2C1A| 
2C1E | 
2C22 | 
2€26 | 
2€28 | 
2€28 | 
2€28 | 
2€28 | 
2€28 | 
2€28 | 
2C2A | 
2C2E | 
2€30| 
2€32 | 
2€38 | 
2C3E | 
2C40| 
2C44 | 
2C46| 
2C46| 
2046 | 


0c00 
6E06 
0400 
6008 


0400 
0600 


4E75 


48E7 
6100 
3A3C 
3C3C 
6100 
6100 
4CDF 
4E75 


705A 
3C7C 
4281 
2A4E 
223C 
0681 
DBC1 
6100 
4E75 


0040 


0030 


0041 
000A 


8600 
O5A2 
0018 
0018 
OAFE 
OAEO 
0061 


OSFA 


0000 
0000 


04AC 


0708 
0168 


; Subroutine to convert Ascii character to hex. 


Expects input in DO 


; and returns converted value in DO. 


. PAGE 


#540 ,D0 
@1 
#$30,D0 
@9 


#$41,D0 
#$0A,D0 


;check if number or letter 
;skip if letter 
;simple operation for number 


ja little different for letters 


, 


; Subroutine 


, 


DBOXDSPLY 


MOVEM.L DO/D5-D6,- (SP) 


BSR 


MOVEM.L (SP)+,D0/D5-D6 


CLRDBOX MOVEQ 
MOVEA 
CLR.L 
MOVE.L 
MOVE.L 
ADD.L 


MAKEDBOX 
#DBOXROW , D5 
#DBOXCOL , D6 
SETCRSR 
DSPMSG 


#ROWBYTES , DO 
#DESKLINE , A6 
D1 

A6,A5 


;save DO and current cursor ptrs 
;clear dialog box and redraw 
;set box coordinates 


;get address in A6 
;write msg 
;restore 

jand exit 


7set pixel line length 
;set starting point as bottom of menu line 


;set limit as bottom of dialog box 


#<DBOXHIGH*ROWBYTES>,D1 ; by adding box heigth to start pt 


#DBOXTOP ,D1 
D1,A5 
GRAY 


;redraw gray pattern 


;  GETINPUT routine - waits for inputs from mouse or keyboard and returns 
; with keycode in DO if keyboard input, or rectangle ID if active rect is 


tex 


RM000 
RM000 
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2C46 | ; selected with the mouse. If CMD flag is set, keyboard input returned 
2C46 | ; only when prefaced by the CMD key. 

2C46| Fee eg pe ee pe aioe he EE Oe 
2C46| 

2C46| ; State 1 - General wait 

2C46| 

2C46| GETINPUT 

2C46| 0838 0003 02A2 BIST #CMDFLG,STATFLGS ;command key still down? 
2C4C| 666C BNE.S  GET2 ;skip if yes 

2C4E| 6100 O0E8 GET1 BSR WI4INPUT 7;else go wait for COPS input 
2C52 | CHKIT 

2C52| OCOO 0006 CMP ..B #MOUSUP , DO ;mouse button up? 

2C56| 6608 BNE.S  @1 

2C58| O8B8 0004 02A2 BCLR #MOUSE,STATFLGS ;clear mouse flag 

2C5E| 60EE BRA.S  GET1 ;and go wait for more input 
2C60 | 

2C60| OCOO 0086 @1 CMP .B #MOUSDWN , DO ;mouse button down? 

2C64| 6608 BNE.S @2 

2C66| O8F8 0004 02A2 BSET #MOUSE,STATFLGS ;set reminder flag 

2C6C| 6014 BRA.S &@3 

2C6E | 

2C6E| 4A00 @2 TST.B DO ;mouse data? 

2C70| 661A BNE.S @5 ;skip if not 

2C72| 6100 0376 BSR CursorHide ;else clear old cursor 

2C76| 6100 0396 BSR CursorDisplay jand redisplay cursor in new position 
2C7A| 

2C7A| 0838 0004 02A2 BTST #MOUSE,STATFLGS ;is mouse button down? 

2C80| 67CC BEQ.S  GET1 ;skip if not 

2C82 | 

2C82| 6100 01C2 @3 BSR CHKPOSN ;else go check mouse position 
2C86| 67C6 BEQ.S GET1 ;continue if not over a rect 
2C88| 6000 0082 BRA GET3 ;else go to state 3 

2C8C | 

2C8C| OCOO OOFF @5 CMP.B #CmdDwn,D0O ;command key down? 

2C90| 6608 BNE.S @6 

2C92| O8F8 0003 02A2 BSET #CMDFLG,STATFLGS ;set flag if yes 

2C98| 6020 BRA.S GET2 j;and go to state 2 

2C9A | 

2C9A| OCOO OO7F @6 CMP.B #CmdUp,DO ;command key up? 

2C9E| 6608 BNE.S @4 

2CA0| 08B8 0003 02A2 BCLR #CMDFLG,STATFLGS ;clear flag if yes 

2CA6| 60A6 BRA.S  GET1 ;and continue in loop 

2CA8| 0838 0005 02A2 @4 BIST #CHKCMD,STATFLGS ;CMD key prefix required? 
2CAE| 669E BNE.S  GET1 ;loop if yes 

2CBO| 4A00 @7 TST.B DO ;else check if downstroke 
2CB2| 6A92 BPL.S GETINPUT ;skip upstrokes 

2CB4| 6100 01EC BSR CHKINPUT ;go check if rectangle selected 


tex 
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2CB8| 4E75 RTS ;and return with keycode 
2CBA | 

2CBA | ; State 2 - Command (apple) button down 

2CBA | 

2CBA | GET2 

2CBA| 6100 007C WAIT2 BSR WI4INPUT 7;else go wait for COPS input 
2CBE | 

2CBE| OCOO 007F CHKIT2 CMP.B  #CMDUP,DO ;command key up? 

2CC2| 6608 BNE.S @2 ;skip if not 

2CC4| O08B8 0003 02A2 BCLR #CMDFLG,STATFLGS ;else clear flag 

2CCA| 6082 BRA.S GET1 ;and return to state 1 

2CCC | 

2CCC| OCOO 0006 @2 CMP.B #MOUSUP,DO ;mouse button up? 

2CD0| 6608 BNE.S @3 

2CD2| O8B8 0004 02A2 BCLR #MOUSE,STATFLGS ;clear mouse flag 

2CD8| 60E0 BRA.S GET2 ;and go wait for more input 
2CDA | 

2CDA| OCOO 0086 @3 CMP .B #MOUSDWN , DO ;mouse button down? 

2CDE| 6608 BNE.S @4 

2CEO| O8F8 0004 02A2 BSET #MOUSE,STATFLGS ;set reminder flag 

2CE6| 6014 BRA.S @5 

2CE8 | 

2CE8| 4A00 @4 TST.B DO ;mouse data? 

2CEA| 6618 BNE.S @6 

2CEC| 6100 02FC BSR CursorHide ;else clear old cursor 

2CF0O| 6100 031C BSR CursorDisplay jand redisplay cursor in new position 
2CF4 | 

2CF4| 0838 0004 02A2 BIST #MOUSE,STATFLGS ;is mouse button down? 

2CFA| 67BE BEQ.S GET2 ;skip if not 

2CEC | 

2CFC| 6100 0148 @5 BSR CHKPOSN ;else go check mouse position 
2D00| 67B8 BEQ.S GET2 ;continue if not over a rect 
2D02| 6008 BRA.S  GET3 7else go to state 3 

2D04 | 

2D04| 6AB4 @6 BPL.S WAIT2 ;ignore upstrokes 

2D06| 6100 019A BSR CHKINPUT ;go check if rectangle selected 
2D0A| 4E75 RTS ;and return with keycode 
2D0C | 

2D0C | ; State 3 - Mouse button down and over an active rectangle 
2D0C | 

2D0C| 3200 GET3 MOVE DO,D1 ;save rectangle ID 

2D0E| 6100 0028 WAIT3 BSR WI4INPUT 7go wait for input 

2D12 | 

2D12| OCOO 0006 CMP.B  #MOUSUP,DO ;mouse button up? 

2D16| 660A BNE.S @1 ;skip if not 

2D18| O8B8 0004 02A2 BCLR #MOUSE,STATFLGS ;clear indicator 

2D1E| 3001 MOVE D1,D0 ;restore rectangle ID 


tex 
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2D20| 
2D22 | 
2D22 | 
2D24 | 
2D26 | 
2D26 | 
2D2A | 
2D2E | 
2D32 | 
2D34 | 
2D38 | 
2D38 | 
2D38 | 
2D38 | 
2D38 | 
2D38 | 
2D38 | 
2D38 | 
2D38 | 
2D38 | 
2D38 | 
2D38 | 
2D38 | 
2D38 | 
2D3C | 
2D3E | 
2D40 | 
2D44 | 
2D46| 
2D48 | 
2D48 | 
2D48 | 
2D4A | 
2D4E | 
2D50 | 
2D54 | 
2D58 | 
2D5A| 
2D5C | 
2D5C | 
2D5C | 
2D5C | 
2D5E | 
2D62 | 
2D64 | 
2D68 | 
2D6A| 


4E75 


4A00 
66E8 


6100 
6100 
6100 
66D8 
6000 


6100 
4A00 
6708 
0c00 
6716 
4E75 


6174 
11C0 
616E 
11C0 
6100 
4240 
4E75 


6160 
0c00 
6318 
0c00 
6318 
0c00 


02C2 
02E2 
0116 


FF10 


0084 


0080 


048A 


048B 
01D4 


OODF 


OOEF 


OOFB 


tex 


RTS ;and go analyze input 
@1 TST.B DO ;mouse data? 

BNE.S WAIT3 ;continue wait if not - ignore keyboard input 
@2 BSR CursorHide ;move cursor to new position 

BSR CursorDisplay 

BSR CHKPOSN ;check if over a rect 

BNE.S  GET3 ;stay in this state if yes 

BRA GETINPUT ;else return to state 1 
; WTAINPUT 


; Routine to wait for input from COPS. Returns with keycode in DO 
; or sets DO = 0 if mouse data received. 


WI4INPUT 


; State 0 - general wait 


COPSO BSR ReadCOPS ;get input from COPS 
TST.B DO ;mouse data? 
BEQ.S  COPS1 ;go to state 1 if yes 
CMP.B =#RSTCODE,DO ;reset code? 
BEQ.S COPS2 ;skip to state 2 if yes 
RTS 7;else return with the keycode 


; State 1 - waiting for mouse data 


COPS1 BSR.S ReadCOPS ;get COPS input 
MOVE.B DO,MousDx ;Save mouse delta-x 
BSR.S ReadCOPS ;read and 
MOVE.B DO,MousDy ;save mouse delta-y 
BSR MouseMovement ;xrecord the mouse movement 
CLR DO ;set mouse flag 
RTS ;and exit 


; State 2 - waiting for reset code 


COPS2 BSR.S ReadCOPS ;get COPS input 
CMP.B #SDF,DO ;reset code <= SDF? 
BLS.S @1 ;branch if yes 
CMP.B #SEF,DO ;reset code <= SEF? 
BLS.S @2 ;skip if yes 
CMP.B #SFB,DO ;reset code <= SFB 
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2D6E | 
2D72 | 
2D74 | 
2D78 | 
2D7A| 
2D7C | 
2D7C | 
2D7C | 
2D80 | 
2D82 | 
2D82 | 
2D82 | 
2D82 | 
2D86 | 
2D88 | 
2D88 | 
2D88 | 
2D88 | 
2D88 | 
2D8A | 
2D8A | 
2D8A | 
2D8A | 
2D8C | 
2D8C | 
2D8C | 
2D90 | 
2D92 | 
2D94 | 
2D96 | 
2D98 | 
2D9C | 
2D9E | 
2D9E | 
2D9E | 
2D9E | 
2DA2 | 
2DA6 | 
2DAA | 
2DAC | 
2DB0 | 
2DB2 | 
2DB4 | 
2DB6 | 
2DB6 | 
2DBA | 
2DBE | 


6500 
6716 
0co0 
630E 
6010 


11C0 
60B6 


11C0 
6016 


60AE 


604C 


0c00 
6604 
7034 
6002 
7035 
003C 
4E75 


48E7 
43F8 
45F8 
7205 
6100 
6504 
5341 
66F6 


4CDF 
6000 


0018 


OOFD 


01B2 


0480 


OOFE 


0001 


60E0 
0481 
0486 


DCDO 


0706 
FF7C 


, 


@1 


, 


$00 


$EO 


$FO 
SFC 


$FB 


SFE 


BLO.S 
BEQ.S 
CMP .B 
BLS.S 
BRA.S 


- SDF 
MOVE .B 
BRA.S 


- SEF 


MOVE .B 
BRA.S 


- SFA 
_ SFD 


BRA.S 


BRA.S 


- SFF 
CMP .B 
BNE.S 
MOVEQ 
BRA.S 
MOVEQ 
ORI.B 
RTS 


tey 


@3 ;branch if < $FB 

@4 ;branch if = SFB 

#SFD ,DO ;reset code <= $FD? 

@3 jbranch if <= SFD 

@5 ;branch if > SFD 

Keyboard ID number - save and return to state 0 
DO ,KeyID ;save new ID 

COPSO ;return to general wait 


Clock data - save first nibble, and go to state 4 


DO ,ClockBytes ;save it 


COPS4 ;and go get rest of data 

Reserved --- ignored 

Clock timer interrupt, keyboard unplugged --- ignored 
COPSO ;go back to general wait 


Soft on/off button - go to power-off routine 


PowerOff ;go shutdown the system 

COPS failure codes - go to error routine 

#SFE ,DO 71/0 board COPS? 

@6 

#EIOCOP ,DO ;else set I/O COPS error code 
@7 

#EKBDCOP , DO ;set keyboard COPS error code 
#$01,CCR ;set return error indicator 


State 4 - waiting for clock data; use timeout routine to guard against error 


COPS4 


@1 


@2 


MOVEM.L D1-D2/A0-A2,-(SP) ;save regs 


ClockBytes+1,Al1 ;set ptrs to save area 
ClockBytes+6 ,A2 


#5,D1 75 more bytes expected 
GETDATA ;get COPS data 

@2 ;skip if any errors 
#1,D1 ;loop until done 

@1 


(SP)+,D1-D2/A0-A2 ;restore regs and 
COPSO 7go back to general wait 
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2DBE | 
2DBE | 
2DBE | 
2DBE | 
2DBE | 
2DBE | 
2DBE | 
2DBE | 
2DBE | 
2DBE | 
2DBE | 
2DCO | 
2DC6 | 
2DCA | 
2DCE | 
2DD0 | 
2DD4 | 
2DD6 | 
2DD8 | 
2DD8 | 
2DD8 | 
2DD8 | 
2DD8 | 
2DD8 | 
2DD8 | 
2DD8 | 
2DDC | 
2DDE | 
2DE4 | 
2DE6 | 
2DEA | 
2DEE | 
2DF4 | 
2DF8 | 
2DF8 | 
2DFC | 
2E00 | 
2E00 | 
2E04 | 
2E08 | 
2E08 | 
2E0E | 
2E12 | 
2E14| 
2E18 | 
2E1C| 
2E1C| 


2F08 
207C 
1028 
0800 
67F6 
1028 
205F 
4E75 


0807 
6622 
207C 
6144 
4228 
6100 
117¢C 
6100 


10BC 
6100 


4OFA 
6000 


203C 
6100 
7021 
6100 
6100 


6100 


OOFC 
001A 
0001 


0002 


0011 
OOFC 
0004 
FO6A 
0080 
F060 


0089 
F006 


0006 
D9OFA 


0003 
DCD2 


DB40 
DCC2 


F8EE 


DD81 


cool 


0004 


DO90 


; ReadCOPS 


; Routine 


ReadCOPS 
MOVE.L 
MOVE .L 

@1 MOVE .B 
BIST 
BEQ.S 
MOVE .B 
MOVE .L 
RTS 


tex 


; {USERINT} 


AO,- (SP) 
#VIA1BASE , AO 
IFR1 (AO) ,DO 
#1,D0 

@1 

ORA1 (AO) ,DO 
(SP)+,A0 


.IF USERINT = 1 


;get interface ptr 
;poll for data 


jloop until data received 
;read 
jand return 


; PowerOff - routine to shutdown the system 


, 


PowerOff 

BTST 
BNE.S 
MOVE .L 
BSR.S 
MOVE .B 
BSR 
MOVE .B 
BSR 


#DISK,D7 

@9 
#DISKMEM , AO 
ENBLDRVS 
#DRV1 , DRV (A0) 
EJCTDSK 
#DRV2 , DRV (A0) 
EJCTDSK 


#DIE, (AO) 

CMDCHK 

CONOFF 
@1,A4 
CONOFF 


#ONESEC , DO 
DELAY 
#$21,D0 
COPSCMD 
KBDDELAY 


SQUAWK 


;disk controller error? CHG023 
;skip if yes CHG023 
;set ptr for shared memory 

;enable both drives 

;eject diskette in drive 1 

;and drive 2 

;get Twiggy controller out of memory 

;wait until command taken 

;turn off contrast CHG003 
jwait for it to happen CHG003 
; CHG003 
;power off, timer off, clock on RMO00 


;go do it 
;wait about 1.7 secs for power-off 


jerror if still on 
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2E20| 
2E24 | 
2E26| 
2E2A | 
2E2A | 
2E2A | 
2E2A | 
2E2A | 
2E2A | 
2E2A | 
2E30 | 
2E34 | 
2E38 | 
2E3E | 
2E44 | 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 
2E46| 


45FA 
7034 
6000 


117¢C 
10BC 
6100 
267C 
08AB 
4E75 


0B29 


E798 


0088 0002 
0086 
EFCE 
OOFC DD81 
0004 0004 


LEA IOBRD , A2 


MOVEQ #EIOCOP ,DO 
BRA TSTXIT 


MOVE.B #$88,CMD(A0) 


MOVE.B #ENBLINT, (AQ) 
BSR CMDCHK 


MOVE.L #VIA1BASE,A3 


BCLR #FDIR,DDRB1 (A3) 


tex 


;set error code 
;display error and go back to levell monitor 


;enable both drives 


;and enable FDIR 


; Routine to check mouse position versus active rectangle table. 

; If over a rectangle, inverts it and returns with its ID. 

; If not over a rectangle, ensures all rectangles not inverted, and 
; xveturns with DO = 0. 


; Active rectangle table has following format: 


; Word 1 : number of entries in table 

; Word 2 : ID for first entry, MSB = 1 if inverted on screen 
iH Next 4 words contain X,Y pixel coordinates for upper left 
; and bottom right corners 
: Each successive entry follows same format, with 5 words per entry 


7 Register usage: 
ptr to rectangle table 
# of entries in table 
ID for current entry 


; AO 
; DO 
2 D1 
; D2 
; D3 
$ D4 
; D5 
; D6 
: D7 


; On exit, DO 


X-coordinate 
Y-coordinate 
X-coordinate 
Y-coordinate 
X-coordinate 
Y-coordinate 


for 
for 
for 
for 
for 
for 


upper left 

upper left 

bottom right 

bottom right 

current cursor location 
current cursor location 


ID code of rectangle cursor is over or 
0 if not over any rectangle 
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tex 


2E46 | 

2E46| 48E7 7F80 CHKPOSN MOVEM.L D1-D7/A0,- (SP) 

2E4A| 3C38 0496 MOVE Crsrx,D6 ;get current cursor location 
2E4E| 3E38 0498 MOVE CrsrY,D7 

2E52| 41F8 053A LEA RectTable ,AO ;set ptr to table 

2E56| 3018 MOVE (AO) +,D0 ;get count 

2E58| 6742 BEQ.S CHKPXIT ;exit if 0 

2E5A| 4C98 003E GETNTRY MOVEM (AO) +,D1-D5 ;else get entry (5 words) 

2E5E | 

2E5E | ; check if cursor over rectangle 

2E5E | 

2E5E| BC42 CMP D2 ,D6 ;CrsrX < upper left X? 

2E60| 6DOE BLT.S @1 ;branch if cursor to left of rectangle 
2E62| BC44 CMP D4,D6 ;CrsrX > bottom right X? 

2E64| 6EOA BGT.S @1 ;branch if cursor to right of rectangle 
2E66| BE43 CMP D3 ,D7 ;CrsrY < upper left Y? 

2E68| 6D06 BLT.S @1 ;branch if cursor above rectangle 
2E6A| BE45 CMP D5,D7 ;CrsrY > bottom right Y? 

2E6C| 6E02 BGT.S @1 ;branch if cursor below rectangle 
2E6E| 600E BRA.S @3 ;cursor over this entry - go invert it 
2E70 | 

2E70 | ; not over this entry - check if inverted, then continue through table 
2E70| 4A41 @1 TST D1 ;entry inverted? 

2E74| 6100 004C BSR INVERT ;else go reinvert 

2E78| 5340 @2 SUBQ #1,D0 ;decrement entry count 

2E7A| 66DE BNE.S  GETNTRY ;check next entry if not done 
2E7C| 601E BRA.S CHKPXIT ;else exit with DO = 0 

2E7E | 

2E7E | ; over the rectangle - if not already, invert it and data saved 
2E7E | 

2E7E| 4A41 @3 TST D1 jalready inverted? 

2E80| 6B18 BMI.S @6 ;exit if yes 

2E82| 6100 003E BSR INVERT ;go invert rectangle 

2E86 | 

2E86 | ; check if any other entries previously inverted 

2E86 | 

2E86| 5340 @4 SUBQ #1,D0 ;done? 

2E88| 6710 BEQ.S @6 ;skip if yes 

2E8A| 4A58 TST (AO) + 7;else check next entry 

2E8C| 6B04 BMI.S @5 ;skip if inverted 

2E8E| 5048 ADDQ #8 ,A0 ;else bump to next entry 

2E90| 60F4 BRA.S @4 ;and continue loop 

2E92 | 

2E92| 4C98 003C @5 MOVEM (AO) +,D2-D5 ;get coordinates 

2E96| 6100 002A BSR INVERT ;and go reinvert and then exit 
2E9A | ;since at most one rect inverted 
2E9A | 
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2E9A| 3001 @6 MOVE D1,D0 ;set return code 

2E9C | 

2E9C| 4CDF 01FE CHKPXIT MOVEM.L (SP)+,D1-D7/A0 

2EA0| 4E75 RTS ;and exit 

2EA2 | 

2EA2 | Peet SSR SSS a5 Sa SSS ss SSS a 5 a a a Sa eS eas 
2EA2 | ; CHKINPUT 

2EA2 | ; 

2EA2 | ; Routine to check keyboard input versus active rectangle table. 
2EA2 | ; I£ rectangle selected, inverts it and returns. 

2EA2 | ; 

2EA2 | ; Active rectangle table has following format: 

2EA2 | ; 

2EA2 | 7 Word 1 : number of entries in table 

2EA2 | - Word 2 : ID for first entry, MSB = 1 if inverted on screen 
2EA2 | ; Next 4 words contain X,Y pixel coordinates for upper left 
2EA2 | iH and bottom right corners 

2EA2 | 7 Each successive entry follows same format, with 5 words per entry 
2EA2 | ; 

2EA2 | 7 Register usage: 

2EA2 | y AO = ptr to rectangle table 

2EA2 | 4 DO = keyboard input 

2EA2 | : D1 = ID for current entry 

2EA2 | ' D2 = X-coordinate for upper left 

2EA2 | : D3 = Y-coordinate for upper left 

2EA2 | ; D4 = X-coordinate for bottom right 

2EA2 | ; D5 = Y-coordinate for bottom right 

2EA2 | ; D6 = # of entries in table 

2EA2 | ; 

2EA2 | a a a aa a aa a 
2EA2 | 

2EA2 | CHKINPUT 

2EA2| 48E7 7E80 MOVEM.L D1-D6/A0,- (SP) 

2EA6| 41F8 053A LEA RectTable ,AO ;set ptr to table 

2EAA| 3C18 MOVE (AO) +,D6 ;get count 

2EAC| 4C98 003E RDENTRY MOVEM (AO) +,D1-D5 ;get entry (5 words) 

2EB0| B200 CMP.B  DO,D1 ;match with keyboard input? 

2EB2| 6706 BEQ.S @1 ;skip if yes 

2EB4| 5346 SUBQ #1,D6 7else loop thru all entries 

2EB6| 66F4 BNE.S RDENTRY 

2EB8| 6002 BRA.S @2 ;skip to exit 

2EBA | 

2EBA| 6106 @1 BSR.S INVERT ;go invert rectangle 

2EBC | 

2EBC| 4CDF 017E @2 MOVEM.L (SP)+,D1-D6/A0 ;restore regs 

2ECO| 4E75 RTS ;and return 

2EC2 | PosSses Seas 5933353555533 a 5 ss SS a aes 55 S$ 53835555555 


tex 
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2EC2 | 
2EC2 | 
2EC2 | 
2EC2 | 
2EC2 | 
2EC2 | 
2EC2 | 
2EC2 | 
2EC2 | 
2EC2 | 
2EC2 | 
2EC2 | 
2EC2 | 
2EC2 | 
2EC2 | 
2EC6 | 
2EC6 | 
2ECA | 
2ECA | 
2ED0 | 
2EDO | 
2ED2 | 
2ED4 | 
2ED8 | 
2EDA | 
2EDC | 
2EDE | 
2EDE | 
2EEO | 
2EE2 | 
2EE4 | 
2EE6 | 
2EE8 | 
2EEA | 
2EEA | 
2EFO | 
2EF? | 
2EF6 | 
2EF6 | 
2EF8 | 
2EF8 | 
2EF8 | 
2EFA | 
2EFE | 
2F02 | 
2F02 | 
2F06| 


48E7 


6100 


0868 


3004 
9042 
80FC 
3205 
9243 
5241 


93C9 
E64A 
D2c2 
785A 
C6C4 
D2C3 


0838 
6706 
D2FC 
5341 
74EF 
48E7 
6100 


4CDF 


F840 


0122 


0007 


0008 


0007 


005A 


E040 
022E 


0207 


FFF6 


02A2 


; INVERT 


; Routine to invert buttons, menu or icon. 
; width and heigth of rectangle, then calls INVERSE and other routines 


; as needed. 


; Register inputs: D2 


INVERT MOVEM.L 


BSR 


SUBA.L 
LSR 


@0 MOVEQ 
MOVEM.L 
BSR 


MOVEM.L 


D3 = 

D4 = bottom 
D5 = bottom 
AO = ptr to 


DO-D4/A1,- (SP) 
CursorHide 
#7,-10 (AO) 


D4,D0 
D2,D0 
#8 ,DO 
D5,D1 
D3,D1 
#1,D1 


Al,Al 
#3,D2 
D2,A1 
#MaxX/8 ,D4 
D4,D3 
D3,Al 


#MENU , STATFLGS 
@0 
#ROWBYTES ,Al 
#1,D1 

#-1,D2 
DO-D2/Al1,- (SP) 
INVERSE 


(SP) +,D0-D2/A1 


upper left X-coordinate 
upper left Y-coordinate 


right X-coordinate 
right Y-coordinate 


start of next entry in rectangle table 


;remove cursor 


;£lip the invert bit indicator for entry 


;compute width 


;convert to bytes 
;compute height in pixel rows 


;bump by 1 to do bottom line also 


;use for upper left address 

;divide pixel column by 8 for bytes 
jadd to address 

;bytes per row on screen 

; * pixel row 

;address of upper left corner 


;doing menu item? 

;skip if not 

;else add 1 scan line to avoid menu 
; bar line inversion 


;and decr length to avoid inverting bottom line 


; of menu box 
;set fill pattern 
;save args 


jinvert it 


;restore args 


Computes upper left address, 


tex 


RMO00 
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tex 


2F06| 0838 0006 02A2 BTST #BTN , STATFLGS ;doing buttons? 

2F0C| 6706 BEQ.S @1 ;skip if not 

2FOE| 6100 03E8 BSR DRAWBUTN ;redraw button 

2F12| 600C BRA.S @9 jand exit 

2F14| 

2F14| 0838 0007 02A2 @1 BIST #MENU,STATFLGS ;doing menu? 

2F1A| 6704 BEQ.S @9 ;skip if not 

2F1C| 6100 0424 BSR DRAWSIDES ;just redraw sides 

2F20| 

2F20| 6100 OOEC @9 BSR CursorDisplay ;redisplay cursor 

2F24| 

2F24| 4CDF 021F MOVEM.L (SP)+,D0-D4/Al ;restore regs 

2F28| 4E75 RTS ;and return 

2F2A| 

2F2A| . PAGE 

2F2A| $e a ae Se ae et ee ee ee ee ea ere 
2F2A| Ir 

2F2A| 3 Hardware Interface for the Mouse 

2F2A| 7 

2F2A| H Written by Rick Meyers 

2F2A| 4 (c) Apple Computer Incorporated, 1983 

2F2A| iH 

2F2A| : The routines below provide an assembly language interface to the mouse. 
2F2A| iy Input parameters are passed in registers, output parameters are returned 
2F2A| : in registers. Unless otherwise noted, all registers are preserved. 
2F2A| ; 

2F2A| : The Mouse 

2F2A| : 

2F2A| 4 The mouse is a pointing device used to indicate screen locations. Mouse 
2F2A| H coordinates are located between pixels on the screen. Therefore, the 
2F2A | ; X-coordinate can range from 0 to 720, and the Y-coordinate from 0 to 364. 
2F2A| : The initial mouse location is 0,0. 

2F2A| y 

2F2A| , Mouse Scaling 

2F2A| ; 

2F2A| : The relationship between physical mouse movements and logical mouse 
2F2A| ; movements is not necessary a fixed linear mapping. Three alternatives 
2F2A | - are available: 1) unscaled, 2) scaled for fine movement and 3) scaled 
2F2A| 4 for coarse movement. 

2F2A| 7 

2F2A | a When mouse movement is unscaled, a horizontal mouse movement of x units 
2F2A| ; yields a change in the mouse X-coordinate of x pixels. Similiarly, a 
2F2A| 4 vertical movement of y units yields a change is the mouse Y-coordinate 
2F2A| H of y pixels. These rules apply independent of the speed of the mouse 
2F2A| x movement. 

2F2A| : 

2F2A| ; When mouse movement is scaled, horizontal movements are magnified by 3/2 
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2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2A | 
2F2E | 
2F32 | 
2F36| 
2F3A| 
2F3C| 
2F40| 
2F42 | 
2F42 | 
2F44 | 
2F46 | 


48E7 
3038 
3238 
1438 
4882 
1638 
4883 


3802 
6C02 
4444 


7000 
0486 
0488 
048A 


048B 


H relative to vertical movements. This is intended to compensate for the 

y 2/3 aspect ratio of pixels on the screen. When scaling is in effect, a 

- distinction is made between fine (small) movements and coarse (large) 

; movements. Fine movements are slightly reduced, while coarse movements 

. are magnified. For scaled fine movements, a horizontal mouse movement of 

; x units yields a change in the X-coordinate of x pixels, but a vertical 

7 movement of y units yields a change of (2/3)*y pixels. For scaled coarse 
; movements, a horizontal movement a x units yields a change of (3/2) *x 

; pixels, while a vertical movements of y units yields a change of y pixels. 


; The distinction between fine movements and coarse movements is determined 

4 by the sum of the x and y movements each time the mouse location is 

- updated. If this sum is at or below the 'threshold', the movement is 
considered to be a fine movement. Values of the threshold range from 0 

. (which yields all coarse movements) to 256 (which yields all fine 

; movements). Given the default mouse updating frequency, a threshold of 

4 about 8 (threshold's initial setting) gives a comfortable transition between 
; fine and coarse movements. 


y Mouse Movement 


: This routine is called by the GETINPUT routine when the COPS has 
7 reported mouse movement. All registers are preserved. 


H Register Assignments: 


- DO -- Mouse X-Coordinate (integer) 

: D1 -- Mouse Y-Corrdinate (integer) 

. D2 -- Mouse Dx (integer) 

: D3 -- Mouse Dy (integer) 

MouseMovement MOVEM.L D1-D5,- (SP) ; save registers 
MOVE.W MousxX,D0O ; Mouse X-coordinate 
MOVE.W MousY,D1 ; Mouse Y-coordinate 
MOVE.B MousDx,D2 ; Mouse Dx (byte) 
EXT .W D2 ; Mouse Dx (integer) 
MOVE.B MousDy,D3 ; mouse Dy (byte) 
EXT .W D3 ; mouse Dy (integer) 

Scale MOVE.W D2,D4 ; mouse Dx 
BGE.S @1 ; branch if >= 0 
NEG.W D4 ; ABS (mouse Dx) 
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tex 


2F48 | 
2F48 | 
2F4A | 
2FAC | 
2F4E | 
2F4E | 
2F50| 
2F54 | 
2F56| 
2F56| 
2F58 | 
2F5A| 
2F5C| 
2F5E | 
2F60| 
2F62 | 
2F64 | 
2F66| 
2F68 | 
2F6A| 
2F6C| 
2F6C| 
2F6E | 
2F70 | 
2F72 | 
2F74| 
2F76 | 
2F78 | 
2F7A| 
2F7C | 
2F7C | 
2F7E| 
2F80| 
2F82 | 
2F82 | 
2F86| 
2F88 | 
2F8C | 
2F8C | 
2F8E | 
2F90| 
2F92 | 
2F92 | 
2F96| 
2F98 | 
2F9C | 
2F9C | 


3A03 
6C02 
4445 


D845 
9878 048E 
6E16 


D042 
3403 
D643 
D643 
D642 
5443 
6D02 
5643 
E643 
D243 
6010 


D243 
3602 
D443 
D443 
6D02 
5242 
E242 
D042 


4n40 
6C02 
4240 


0C40 02D0 
6F04 
303C 02D0 


4n41 
6C02 
4241 


0c41 016C 
6F04 
323C 016C 


31C0 0486 


@1 


@2 


Fine 


@3 


Coarse 


@4 


Bounds 


@5 


@6 


@7 


es 


MOVE .W 
BGE.S 
NEG.W 


ADD .W 
SUB .W 
BGT.S 


ADD.W 
MOVE .W 
ADD.W 
ADD.W 
ADD.W 
ADDQ 
BLT.S 
ADDQ 
ASR.W 
ADD.W 
BRA.S 


ADD.W 
MOVE .W 
ADD.W 
ADD.W 
BLT.S 
ADDO.W 
ASR.W 
ADD.W 


TST.W 
BGE.S 
MOVE .W 


CMP .W 
BLE.S 
MOVE .W 


TST .W 
BGE.S 
MOVE .W 


CMP .W 
BLE.S 
MOVE .W 


MOVE .W 


D3,D5 
@2 
D5 


D5,D4 
MousThresh ,D4 
Coarse 


D2,D0 
D3 ,D2 
D3 ,D3 
D3 ,D3 
D2,D3 
#2 ,D3 
@3 

#3 ,D3 
#3 ,D3 
D3 ,D1 
Bounds 


D3,D1 
D2,D3 
D3 ,D2 
D3 ,D2 
@4 

#1,D2 
#1,D2 
D2,D0 


DO 
@5 
#0 ,DO 


#MaxxX , DO 
@6 
#MaxxX , DO 


D1 
@7 
#0,D1 


#MaxY ,D1 
a8 
#MaxY ,D1 


DO ,MousX 


tex 


; mouse Dy 
; branch if >= 0 
; ABS (mouse Dy) 


; ABS (Dx) + ABS (Dy) 


- MouseThreshold 


; branch if coarse movement 


; new X-coordinate (scale 1) 
; save Dy 

; Dy*2 

; Dy*4 

; Dy*5 


(Dy*5) +2 


; branch if negative 


(Dy*5) +5 


; Dy* (5/8) with rounding 
; new Y-coordinate (scale 5/8) 
; continue 


; new Y-coordinate (scale 1) 
; save Dx 

; Dx*2 

; Dx*3 

; branch if negative 


(Dx*3) +1 


; Dx* (3/2) with rounding 
; new X-coordinate (scale 3/2) 


; new X-coordinate >= 0 
; branch if >= 0 
; minimum X of 0 


; new X-coordinate <= 720 
; branch if <= 720 
; maximum X of 720 


; new Y-coordinate >= 0 
; branch if >= 0 
; minimum Y of 0 


; new Y-coordinate <= 364 
; branch if <= 364 
; Maximum Y of 364 


; update Mouse X-coordinate 


@ "27 computer Boot ROM 2.48 Listing * 197 of 265 


2FA0 | 
2FA4 | 
2FA8 | 
2FAC | 
2FB0 | 
2FB2 | 
2FB2 | 
2FB2 | 
2FB2 | 
2FB2 | 
2FB2 | 
2FB2 | 
2FB2 | 
2FB2 | 
2FB8 | 
2FBE | 
2FCA | 
2FC6 | 
2FCA | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 


31C1 
31C0 
31C1 
4CDF 
4E75 


31FC 
31FC 
31FC 
707C 
6100 
4E75 


0488 
0496 
0498 
003E 


0168 0486 
OOB6 0488 
0008 048E 


D98E 


MOVE.W D1,MousY ; update Mouse Y-coordinate 
MOVE.W DO,Crsrx ; also update cursor coordinates 
MOVE.W D1,CrsrY 

MOVEM.L (SP)+,D1-D5 ; vestore registers 

RTS ; return 


MousInit 
MOVE.W #360,MousX ; set inital mouse location 
MOVE.W #182,MousY ; to center of screen 
MOVE.W #8,MousThresh ; set scaling threshold 
MOVEQ  #S$7C,D0 ; and enable mouse data 
BSR COPSCMD 
RTS 


3 Hardware Interface for the Cursor 


: Written by Rick Meyers 
y (c) Apple Computer Incorporated, 1983 


4 The routines below provide an assembly language interface to the cursor. 
7 Input parameters are passed in registers, output parameters are returned 
: in registers. Unless otherwise noted, all registers are preserved. 


iy The Cursor 

; The cursor is a small image that is displayed on the screen. It's shape 

4 is specified by two bitmaps, called 'data' and 'mask'. These bitmaps are 
i 16 bits wide and from 0 to 32 bits high. The rule used to combine the 

; bits already on the screen with the data and mask is 

= screen <- (screen and (not mask)) xor data. 

; The effect is that white areas of the screen are replaced with the cursor 
‘ data. Black areas of the screen are replaced with (not mask) xor data. 

. If the data and mask bitmaps are identical, the effect is to 'or' the data 


i; onto the screen. 


; The cursor has both a location and a hotspot. The location is a position 
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tex 


2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FCC | 
2FD0 | 
2FD4 | 
2FDA| 
2FE0 | 
2FE6 | 
2FE8 | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEA | 
2FEE | 


4278 0490 

4278 0492 

31FC 0010 0494 
31FC 0168 0496 
31FC 00B6 0498 
61CA 

4E75 


48E7 COCO 
41F8 04A2 


tex 


on the screen, with X-coordinates of 0 to 720 and Y-coordinates of 0 to 364 
The hotspot is a position within the cursor bitmaps, with X- and Y-coordi- 
nates ranging from 0 to 16. The cursor is displayed on the screen with it's 
hotspot at location. If the cursor's location is near an edge of the screen, 
the cursor image may be partially or completely off the screen. 


Routine: CursorInit 

Arguments: None 

Function: Sets up the initial defaults used by the ROM cursor. Initial 
position is set for center of the screen. 


CursorInit MOVE.W #0,CrsrHotx ; cursor hotspot X-coordinate 
MOVE.W #0,CrsrHotY ; cursor hotspot Y-coordinate 
MOVE.W #16,CrsrHeight ; cursor hieght, 0-32 
MOVE.W #360,Crsrx ; initial cursor X-coordinate 
MOVE.W #182,CrsrY ; initial cursor Y-coordinate 
BSR.S MousInit ; init mouse for cursor control 
RTS ; return 


Cursor Hide and Display 


Care must be taken when updating the screen image which is 'under' the 
cursor. The simplest approach is to remove the cursor from the screen 
(hide), do the screen modification, then redisplay the cursor (display) . 
Each hide operation must be followed by a corresponding display 
operation. The operations are paired and can be nested. The first of a 
series of hides removes the cursor from the screen; it's corresponding 
display redisplays the cursor. Intervening operations have no apparent 


effect. 
Routine: CursorHide 
Arguments: None 
Function: Remove the cursor from the screen. Note that every call to 
CursorHide must be followed by exactly one call to CursorDisplay. 
CursorHide MOVEM.L DO-D1/A0-A1, - (SP) ; save registers 


LEA SavedData ,A0 ; saved data address 
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tex 


2FF2| 2278 0528 MOVE.L SavedAddr ,Al ; saved data screen address 
2FF6| 3038 0526 MOVE.W SavedRows ,DO ; rows of saved data 

2FFA| 323C 005A MOVE.W #MaxX/8,D1 ; bytes per row on screen 

2FFE| 6004 BRA.S @2 ; test of rows=0 

3000 | 

3000| 2298 @1 MOVE.L (A0)+, (A1) ; from saved to screen 

3002| D2C1 ADD.W D1,Al ; screen address of next row 
3004| 51C8 FFFA @2 DBF DO,@1 ; loop 'SavedRows' times 

3008 | 

3008| 4CDF 0303 MOVEM.L (SP)+,D0-D1/A0-Al1 ; vestore registers 

300C| 4E75 RTS ; return 

300E | 

300E | Se ee ne ee ee Be ee eee 
300E | ; 

300E | - Routine: CursorDisplay 

300E| : Arguments: none 

300E | iH Function: Redisplay the cursor. Note that every call to CursorDisplay 
300E | 7 must be preceeded by exactly one call to CursorHide. 

300E | ; 

300E | H Register Assignments: 

300E | ; 

300E| i" DO -- saved data X-coordinate, cursor data 

300E| 3 D1 -- saved data Y-coordinate, cursor mask 

300E| " D2 -- left shift count 

300E | ; D3 -- 32-bit mask 

300E| ; D4 -- rows of saved data 

300E | ; D5 -- bytes per row on screen 

300E | ; 

300E| is AO -- saved data address 

300E| e Al -- saved data screen address 

300E| 4 A2 -- cursor data address 

300E| . A3 -- cursor mask address 

300E | PRR SS Re Re See ee a a a eS eS 
300E | 

300E| 48E7 FCFO CursorDisplay MOVEM.L D0O-D5/A0-A3,- (SP) ; save registers 

3012 | 

3012| 41F8 04A2 LEA SavedData ,A0 ; saved data address 

3016| 2278 0110 MOVE.L ScrnBase,Al ; screen memory address 

301A| 45FA 0900 LEA CrsrData ,A2 ; cursor data bitmap address 
301E| 47FA O8FC LEA CrsrMask ,A3 ; cursor mask bitmap address 
3022| 3038 0490 MOVE.W CrsrHotx,DO ; cursor hotspot X-coordinate 
3026| 3238 0492 MOVE.W CrsrHotyY,D1 ; cursor hotspot Y-coordinate 
302A| 3838 0494 MOVE.W CrsrHeight,D4 7; cursor height 

302E | 

302E | 7 Compute and bounds check the X-coordinate of the data under the cursor. 
302E| 9078 0496 @11 SUB.W CrsrxX ,D0 ; cursor X-coordinate 

3032| 4440 NEG.W DO 7; - cursor hotspot X-coordinate 
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3034| 
3036| 
303A| 
303C| 
3040| 
3042 | 
3044| 
3046| 
3046| 
304A| 
304C| 
304C| 
304E| 
3050| 
3052 | 
3056| 
3056| 
305A| 
305C| 
305C| 
3060| 
3062 | 
3064 | 
3064 | 
3068 | 
306A| 
306C| 
3070] 
3070| 
3070| 
3070] 
3074| 
3076| 
3078 | 
3078 | 
307A| 
307¢C| 
307E| 
3080| 
3082 | 
3084| 
3084 | 
3088 | 
308A| 
308C| 
308E| 
308E| 


3400 
0242 
4442 
0642 
4283 
4643 
ES5AB 


0240 
6COA 


4240 
E18B 
E18B 
0642 


0c40 
6F14 


0c40 
6602 
7600 


303C 
E08B 
E08B 
0642 


9278 
4441 
6COC 


D841 
D241 
94C1 
96C1 
4241 
6010 


3A3C 
9A44 
B245 
6F0C 


383C 


OOOF 


0010 


FFFO 


0010 


02B0 


02D0 


02B0 


0010 


0498 


016C 


016C 


@O 


@1 


@3 


Compute and 


MOVE.W DO,D2 H 


AND.W #SOO00F,D2 : 
NEG .W D2 ; 
ADD.W #16,D2 7 
CLR.L D3 ; 
NOT D3 7 
LSL.L D2,D3 ; 
AND.W #S¥FFFO,DO ; 
BGE.S @0 ; 
MOVE.W #0,D0 7 
LSL.L #8,D3 ; 
LSL.L  #8,D3 ; 
ADD.W #16,D2 7 
CMP.W #MaxX-32,D0 ; 
BLE.S @2 ; 
CMP.W  #MaxX,DO 7 
BNE.S @1 ; 
MOVEQ #0,D3 ; 
MOVE.W #MaxX-32,D0 : 
LSR.L  #8,D3 7 
LSR.L  #8,D3 ; 
ADD.W #16,D2 ; 
bounds check the Y-coordinate 
SUB.W CrsrY,D1 : 
NEG .W D1 ; 
BGE.S @3 ; 
ADD.W D1,D4 ; 
ADD.W  D1,D1 ; 
SUB.W  D1,A2 ; 
SUB.W  D1,A3 ; 
MOVE.W #0,D1 ; 
BRA.S @4 ; 
MOVE.W #MaxY,D5 ; 
SUB.W D4,D5 ; 
CMP.W D5,D1 ; 
BLE.S @5 ; 


MOVE.W #MaxyY,D4 ; 


tex 


upper left X-coordinate 

bit offset within word 
negated and converted to 
left shift count 

32-bit mask 

D3 = SOOOOFFFF 
shifted into position 


RMO000 
RMO00 


upper left X-coord rounded down 
branch if >= 0 


minimum upper left X-coord of 0 
adjust 32-bit mask 

adjust 32-bit mask 

adjust left shift count 


upper left X-coord <= 720-32 
branch if <= 720-32 


cursor off right edge ? 
branch if not off right edge 
mask off all bits 


maximum X-coord of 720-32 
adjust 32-bit mask 
adjust 32-bit mask 
adjust left shift count 


of the data under the cursor. 


cursor Y-coordinate 
- cursor hotspot Y-coordinate 
branch if upper left Y >= 0 


decrease rows of saved data 
double for byte count 
increase cursor data address 
increase cursor mask address 
minimum upper left Y of 0 
continue 


maximum Y-coordinate 

- cursor height 
cursor bottom <= 364-CrsrHeight ? 
branch if <= 364-CrsrHeight 


last row on screen 
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3092 | 
3094 | 
3094 | 
3096 | 
3098 | 
309A| 
309A| 
309E | 
30A2 | 
3006 | 
3006 | 
3006 | 
3006 | 
30A8 | 
30AA| 
30AC | 
30AE | 
30B0 | 
30B4 | 
30B6 | 
30B6 | 
30B8 | 
30BA| 
30BC | 
30BE | 
30€0 | 
302 | 
30C4 | 
30C4 | 
30C6 | 
308 | 
30CA | 
30CC | 
30D0 | 
30D0 | 
30D4| 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 


9841 


444 
6C02 
4244 


31C0 
31C1 
31C4 


E648 
D2C0 
7AS5A 
C2c5 
D3C1 
21c9 
6016 


301A 
E5B8 
C083 
321B 
E5B9 
C283 
4681 


20D1 
C391 
B191 
D2c5 
51CC 


4CDF 
4E75 


0522 
0524 
0526 


0528 


FFE8 


OF3F 


@4 


@5 


, 


@6 


@7 


Display the 


SUB .W 


TST.W 
BGE.S 
MOVE .W 


MOVE .W 
MOVE .W 
MOVE .W 


cursor on the screen. 


MOVEM.L (SP) +,D0-D5/A0-A3 


RTS 
. ENDC 
.IF AAPL = 1 
. ENDC 
.IF AAPL = 1 
. ENDC 
. ENDC 


D1,D4 


D4 
@5 
#0 ,D4 


DO , SavedxX 
D1,SavedY 
D4,SavedRows 


#3 ,D0 

DO,Al 
#MaxX/8 ,D5 
D5,D1 

D1,A1 

Al ,SavedAddr 
@7 


(A2)+,D0 
D2,D0 

D3 ,DO 
(A3)+,D1 
D2,D1 
D3,D1 

D1 


(Al) , (AO) + 
D1, (Al) 
DO, (Al) 
D5,Al 
D4,@6 


; {USERINT} 


; {USERINT} 


; {ROM4K} 


. INCLUDE RM248.G.TEXT 


adjust rows of saved data 


rows of saved data >= 0 ? 
branch if >= 0 
minimum rows of saved data 


saved data X-coordinate 
saved data Y-coordinate 
rows of saved data 


convert X-coord to bytes 
and add to screen address 
bytes per row on screen 

* Y-coord 

added to screen address 
saved data screen address 
test for rows=0 


cursor data 

shift to proper bit position 
eliminate unwanted bits 
cursor mask 

shift to proper bit position 
eliminate unwanted bits 
invert cursor mask 


from screen to saved data 
screen and (not mask) 

xor cursor data 

screen address of next row 
loop 'SavedRows' times 


restore registers 
return 
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30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D6 | 
30D8 | 
30DA| 
30DA| 
30DA| 
30DA| 
30DC | 
30DE| 
30E2 | 
30E4 | 
30E6 | 
30E6 | 
30E6 | 
30E6 | 
30E6 | 
30E6 | 
30EA | 


4282 
612E 


705A 
74FF 
327C O5A0 
7201 
6142 


3C7C O5FA 
3A7C 7FF8 


tex 


. PAGE 
IF EXTERNAL = 1 


.IF USERINT = 1 
PIII IIR RRR RRR IK TI I I IK IKK RRR RIK 


; Mini-Graphics Package * 
; Contributed by Mike Urquhart * 
; Copyright 1983, 1984 Apple - 
fRRRKRKKKKKKKKK KEKE REKKEKRKEKKKKKK KKK 
; DRAWDESK : 


y this routine performs the following sequences: 


; 1. clears the screen to a white background. 

iH 2. makes a menu bar by drawing a single pixel horizontal 

é line across the screen. 

7 3. fills the screen area below the menu bar with the stantard 
; gray shade. 


H Also has an entry point called CLRDESK that only does item (3). 


i Destroys regs DO-D2,A1,A5-A6 


: 1. clear screen to white background 

DRAWDESK 
clr.1 d2 
bsr.s whiten 

: 2. make menu bar border 

CLRDESK moveq #ROWBYTES,d0 ;set length of line = 90 bytes 
moveq #-1,d2 ;draw a black pattern 
move.w #MENULINE,A1 ;start at offset 1440 address 
moveq #1,d1 ;draw only 1 pixel line 


bsr.s paint box 
; set a6 to starting pixel address for grey routine below 
; set a5 to limit 


move #DESKLINE , a6 
move #DESKLMT , a5 ;set limit 
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30EE | 
30EE | 
30EE | 
30EE | 
30EE | 
30EE | 
30EE | 
30EE | 
30F4| 
30F4 | 
30F6 | 
30F8 | 
30FA| 
30FE| 
30FE| 
3100| 
3102| 
3104| 
3106 | 
3106| 
3106| 
3106 | 
3106 | 
3106| 
3106 | 
3106| 
3106 | 
3106 | 
3106 | 
3106 | 
3106| 
3106| 
3106 | 
3106 | 
3106 | 
3106 | 
3106 | 
3106 | 
3106 | 
3106| 
3106 | 
3108 | 
3108 | 
3108 | 
310C| 
310E| 
3110] 


243C AAAA 5555 


4842 
7201 
224E 
6100 002C 


DCCO 
BCCD 
6DFO 
4E75 


74FF 


323C 016B 
705A 
93C9 
6116 


tex 


H 3. make the grey background: to make the gray background, alternating 
; rows of $5555 and SAAAA starting with SAAAA are written to the 
, screen area. 


gray MOVE.L #DESKPATRN,D2 ;set up grey pattern 


grayl swap d2 ;start with the SAAAA pattern 
moveq #1,d1 ;draw a one pixel high line 
move.l a6,al ;starting pixel address must be in al for call 
bsr paint_box 
@1 add do ,a6 ;bump to next pixel line 
cmp .w a5,a6 ;is a6 less then max? 
blt.s  grayl jloop if yes 
rts 7else done 


o subroutine blacken and whiten: clears full screen to black or white 


r Calls: bsr blacken (no parameters) 

; clr.1 d2 

; bsr whiten 

4 registers used: d2.1 - contains either FFFFFFFF or 0 on return 


: d0.b - destroyed but contains $5A (90) on return 
; dl.w - destroyed-->should contain 0 on return 
; al.1 - destroyed 


; This routine calls paint _box, so other registers may be destroyed. 


BLACKEN 
moveq #-1,d2 ;black £111 pattern 

whiten 
move.w #MaxY-1,d1 ;number of pixels in screen box heigth 
moveq #ROWBYTES,d0 ;length of screen box is 90 bytes 
suba.1 A1,Al1 ;clear Al 


bsr.s paint box 
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3112| 
3114| 
3114| 
3114| 
3114| 
3114| 
3114| 
3114| 
3114| 
3114| 
3114| 
3114| 
3114| 
3118 | 
311A| 
311¢c| 
311E| 
3120| 
3122 | 
3126 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 


4E75 


48E7 E040 


705A 
7210 
7400 
93C9 
6106 
4CDF 
4E75 


0207 


tex 


; Subroutine to clear only menu bar on desktop 
; Inputs: 

: None 

; Outputs: 

; None 

; Side Effects: 

: None 


CLRMENU MOVEM.L DO-D2/A1,-(SP) ;save regs 


MOVEQ #ROWBYTES,DO ;width of menu bar is 90 bytes 
MOVEQ #MBARLEN,D1 jheigth is 15 pixels 

MOVEQ #0,D2 ;set fill pattern 

SUBA.L A1,Al1 ;upper left corner is at offset 0 
BSR.S PAINT_BOX ;go do it 

MOVEM.L (SP)+,D0-D2/Al ;restore and 

RTS 7; exit 


; Routine paint box 


; Call: BSR paint box 
, or 
; BSR paintb2 


; register setup: 


; D2 must contain a one word fill pattern. 

: DO must contain the width of the box(horizontally) or the length of 

: the line. 

; D1 must contain the heigth(vertically of the box) in horizontal pixel 
; rows: 

; Al must contains the screen displacement in the range 0. .32670 


4 : fill pattern .Sesesa sc heigth in pixels 


Fo i ee length horizontally 


: Assumptions: location SCRNBASE contains the video address 
: registers used-->D0-D3 ,A0-A2 


6 <7 Computer Boot ROM 2.48 Listing « 205 of 265 


3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
3128 | 
312C | 
312E| 
312E| 
3132 | 
3136| 
3136| 
3136| 
3138 | 
3138 | 
3138 | 
313A| 
313¢| 
313E| 
313E| 
313E| 
313E| 
313E| 
313E| 
313E| 
3144| 
3144| 
3144| 
3146| 
3148 | 
3148 | 
3148 | 
3148 | 
3148 | 
3148 | 
314a| 
314a| 
314a| 
314¢c| 
314E| 
314E| 
314E| 
3150| 
3150| 
3152 | 
3154| 
3156| 


4OFA 
6004 


49FA 


D3F8 


2F0A 


4283 
3600 
4483 


0683 


2449 
D5cO 


4ED4 


32C2 
6002 


B559 


B5C9 


6702 
60F2 


0020 


001E 
0110 


0000 005A 


tex 


PAINT BOX 
paintbl lea movinst ,A4 
bra.s cont 
inverse lea exclusive ,A4 
cont ADD.L SCRNBASE,A1 ;add video address to starting pixel address offset. 
paintb2 
MOVE.L A2,-(SP) ;save reg 


, 
, 


, 


startop 


movinst 


do some setup steps 


CLR.L D3 ;clear for use 
MOVE.W DO,D3 ;modify width/length 
NEG.1 D3 ;negate the width/length (D3 = -width/length) 


add the length of one horizontal pixel row-2 to the -width/length 

to derive an offset which can be added to the updated address pointer 
(when it reflects the right corner or end point of the box/line) 

in order to arrive at the next row starting address. 


ADDI.1 #ROWBYTES , D3 ;create displacement for following sequence 

MOVE.L A1,A2 ;create ending column check address 

ADD.L DO,A2 ;add length of line to obtain ending column address 
Al now points to the left top coordinate of the box or line. 

A2 now points to the right top coordinate of the box or line. 


jmp (A4) ;execute the correct operation (EOR or MOVE) 


MOVE.w D2, (Al)+ ;start the sequence 
bra.s compare 


exclusive 


compare 


eor.w D2, (Al) + 


CMP.L Al1,A2 ;reached the right most point? 
BEQ.S  nextline 7yes 
BRA.S startop 
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3156| 
3156| 
3156| 
3156| 
3158 | 
315¢c| 
315E | 
3160| 
3160| 
3162 | 
3164| 
3164 | 
3164 | 
3164 | 
3164 | 
3164 | 
3164 | 
3166| 
3168 | 
3168 | 
3168 | 
3168 | 
3168 | 
3168 | 
3168 | 
3168 | 
3168 | 
3168 | 
316C| 
316C| 
316E| 
3174| 
3178 | 
317A| 
317A| 
317E | 
3180] 
3180| 
3180| 
3180] 
3180] 
3180| 
3180] 
3180] 
3180| 
3180] 
3184 | 


D3C3 
D4FC 005A 
5341 
66E8 


245F 
4E75 


7A59 
7C0C 


48E7 C040 


704E 

223C 0000 O00A4 
327C 1140 

616C 


A4CDF 0203 
4E75 


48E7 C040 


; YES 

nextline 
ADD.L D3 ,Al ;add 1 horizontal line length (5A) minus line length 
ADDA #ROWBYTES , A2 ;to reach the left most point of the box on the 
SUBQ.W #1,D1 ;next horizontal scan line. 
BNE.S startop ;loop until done. 
MOVE.L (SP)+,A2 ;restore and 
RTS ;return 


MAKEPCALRT 
MOVEQ #PCROW,D5 ;set row ptr 
MOVEQ #PCCOL,D6 j;and col ptr 
;then drop into alert box routine 
; MAKEALERT 
is This routine creates an alert box with no title. 
MAKEALERT 


movem.1 d0-d1/al,- (sp) 


MOVEQ 
MOVE .L 
MOVEA 
bsr.s 


#ALRTWIDTH , DO ;set parameters for box 
#ALRTHIGH , D1 

#ALRTSTRT,A1 

makebox 


movem.1 (sp)+,d0-d1/al 


rts 


: MAKETEST 


MAKETEST 


This routine creates an alert box for test icon display. 


movem.1 d0-d1/al,- (sp) 


tex 


RM000 
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3184 | 
3186| 
3188 | 
318¢C| 
318E | 
318E | 
3190] 
3192 | 
3196| 
3198 | 
319¢| 
319¢| 
31A0| 
31A4| 
31A8 | 
31ACc| 
31AC| 
3180 | 
31B2 | 
31B2 | 
31B2 | 
31B2 | 
31B2 | 
31B2 | 
31B2 | 
31B2 | 
31B2 | 
31B2 | 
31B6| 
31B6| 
31B8 | 
31BA| 
31BE | 
31C0| 
31C0| 
31c4| 
31C6| 
31C6| 
31C6| 
31C6| 
31C6| 
31C6| 
31C6| 
31C6| 
31C6| 
31c6| 
31c6| 


7046 
7254 
327C 
6158 


7A40 
7COE 
STFA 
72FF 
6100 


6100 
6100 
6100 
6100 


4CDF 
4E75 


48E7 


7042 
7214 
327C 
6126 


4CDF 
4E75 


1144 


OCA6 
049A 
03EA 
O3FA 
03EC 
03FC 


0203 


co40 


O71E 


0203 


MOVEQ #TSTWWIDTH,DO 
MOVEQ #TSTWHIGH,D1 
MOVEA #TSTWSTRT,Al 
BSR.S MAKEBOX 


;set parameters for alert box 


;go draw box 


MOVEQ #TSTMROW,D5 
MOVEQ #TSTMCOL,D6 


;set cursor ptrs 


LEA CHKMSG , A3 ;set message ptr 
MOVEQ #-1,D1 j;append '...' string 
BSR DSPSTRING ;and go display it 
BSR DSPCPU ;display test icons 
BSR DSPIOB 

BSR DSPMBRD 

BSR DSPXCRD 


movem.1 (sp)+,d0-d1/al 
rts 


; MAKEDBOX 


; This routine creates a dialog box. 


MAKEDBOX 
movem.1 d0-d1/al,- (sp) 


MOVEQ #DBOXWIDTH , DO 
MOVEQ #DBOXHIGH , D1 
MOVEA  #DBOXSTRT,A1 
bsr.s makebox 


;set parameters for dialog box 


movem.1 (sp)+,d0-d1/al 
rts 


; routine makewindow 


7 This routine creates a fixed window of the folder type. 
iy The calling routine must provide the address of the 
H string which will be used to fill in the title box. 


; Call: 


: move <window width>,d0 


tex 
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31C6 | 
31C6 | 
31C6 | 
31C6 | 
31C6 | 
31C6 | 
31C6 | 
31C6 | 
31C6 | 
31C6 | 
31C6 | 
31CA | 
31CA | 
31CC | 
31CC | 
31CC | 
31CC | 
31CC | 
31CC | 
31CC | 
31CE| 
31D2 | 
31D4| 
31D6 | 
31DA| 
31DA| 
31DCc| 
31E0 | 
31E0 | 
31E4| 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 


48E7 C040 


611A 


2F09 
D2FC 05A0 
7201 
74EFF 
6100 FF50 


225F 
6100 O1DA 


4CDF 0203 
4E75 


tex 


3 move <window heigth>,d1 


; move <upper left corner address>,al 
; lea <string address>,a3 
; bsr makewindow 


- This routine calls makebox 


MAKEWINDOW 
movem.1 d0-d1/al,- (sp) 


bsr.s makebox 


; now draw the title box by drawing a single black line across 
H the width of the window about 17 pixels from the top edge 


MOVE.L Al1,-(SP) ;save start point 
add.w #MENULINE,al 
moveq #1,d1 ;set heigth of one pixel 


moveq #-1,d2 
bsr.s paint box 


MOVE.L (SP)+,A1 ;restore start point 
bsr writetitle 


movem.1 (sp)+,d0-dl/al ;restore and return 
rts 


: Routine makebox; 


4 This routine creates a window of either the folder type 
i or the dialog box type. Is is the responsibility of 

; the calling process to append the title box and title 

; to the window if it is the folder type. 


i Call: 

. move.w <window width>,d0O (range 0..90) even 
: move.w <window heigth>,dl (range 0. .364) 

. move.w <startingpixeladdress>,al (range 0. .32670) 

; bsr makebox 


; registers used: d0,d1,d2,d3,d4,al,a2 
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31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31E6 | 
31EA| 
31EE | 
31EE | 
31F0 | 
31F4| 
31F4| 
31F4| 
31F4| 
31F4| 
31F4| 
31F4| 
31F4| 
31F4| 
31F6| 
31F8 | 
31F8 | 
31F8 | 
31F8 | 
31FA| 
31FC| 
3200] 
3200] 
3200] 
3200] 
3202 | 
3204| 
3206| 
320A| 
320A| 
320A| 
320A| 
320E | 
3212 | 
3214| 
3218 | 


48E7 F878 
48E7 C040 


4282 
6100 FF36 


93C3 
93C0 


7201 
74FF 
6100 FF38 


5449 
7201 
5540 
6100 FF2E 


4CDF 0203 
48E7 4040 
7201 

6100 FF12 


tex 


make the basic window--->no edges D2 must be set to 0 on call 
dO must be set to the width (90 maximum) 
dl must be set to the heigth (364 maximum) 
Al must be the offset address (0. .32670) 


movem.1 d0-d4/al-a4,- (sp) 


movem.1 d0-d1/al,- (sp) ;save the heigth and the starting pixel address 
clr.1 d2 ;the pattern 
bsr paint_box 


now draw the individual edges including the shadow edges on the right 
and bottom of the window 


draw bottom horizontal edge 


sub.1 d3,al 

sub.1 d0,al jal is currently equal to the lower right point 
; of the box so we can subtract the width to 
; calculate the lower left point of the box. 


moveq #1,d1 ;set 1 pixel heigth 

moveq #-1,d2 ;set the line pattern 

bsr paintb2 ;remember a4 is set up to point to the move.w 
; instruction 


draw bottom horizontal shadow 


addq #2,al ;shadow begin offset by 2 
moveq #1,d1 ;draw a one pixel line 
subq #2,d0 

bsr paintb2 igo 


draw top horizontal edge 


movem.1 (sp)+,d0-dl/al ;restore original parameters 
movem.1 d1/al,-(sp) 

moveq #1,d1 ;draw a 1 pixel line 

bsr paint_box 
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3218 | 
3218 | 
3218 | 
3218 | 
321¢| 
321E| 
3220| 
3222 | 
3224| 
3224| 
3226 | 
3228 | 
322A| 
322A| 
322E | 
3230] 
3232 | 
3234| 
3234| 
3238 | 
323A| 
323C| 
323E| 
3240| 
3240 
3240| 
3240| 
3240| 
3242 | 
3246| 
3248 | 
324A | 
3245 | 
3245 | 
3250| 
3252 | 
3254| 
3258 | 
3258 | 
325A| 
325A| 
325A| 
325A| 
325A| 
325A| 
325A| 
325A| 


4CDF 
7401 
5544 
5540 
D3CO 


2204 
4280 
6130 


303C 
7407 
2204 
6136 


303C 
7406 
2204 
5341 
612A 


224A 
D3F8 
705A 
D3CO 
343C 


2204 
4280 
6106 
4CDF 


4E75 


0410 


00B6 


0110 


0110 


8000 


1E1F 


tex 


now draw the right edge plus the right edge's shadow, use al 
with a column parameter of 0 


movem.1 (sp)+,d4/a2 
moveq #1,d2 
subq #2,d4 
subq #2,d0 
add.1 do,al 


move.l1 d4,dl1 
clr.1 do 
bsr.s paint v 


move.w #182,d0 ;set one byte offset from right edge 
moveq #7,d2 

move.l d4,dl1 

bsr.s  paintbit ;draw first pixel line of the right shadow 


move.w #272,d0 

moveq #6,d2 

move.l d4,dl1 

subq #1,d1 ;reduce heigth by 1 to compensate for shadow offset 
bsr.s  paintbit 


now draw the left vertical edge of the box 


move.l a2,al ;restore the starting pixel address 
add.1 SCRNBASE , al ;add in video address 

moveq #90,d0 

add.1 d0,al 


move #32768 ,d2 ;set the pattern 
move.l d4,d1l ;the heigth minus two 
clr.1 do ;column 0 offset 


bsr.s paint v 
movem.1 (sp)+,d0-d4/al-a4 


rts 


Routine paint v 
This routine "paints" a vertical column one word wide. 


Call: BSR paint v 
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325A| 
325A| 
325A| 
325A| 
325A| 
325A| 
325A| 
325A| 
325A| 
325A| 
325A| 
325A| 
325A| 
325A| 
325A| 
325A| 
325A| 
325A| 
325A| 
325E| 
3260| 
3262 | 
3266 | 
3268 | 
3268 | 
326A| 
326A| 
326A| 
326A| 
326A| 
326A| 
326A| 
326A| 
326A| 
326A| 
326A| 
326A| 
326A| 
326A| 
326A| 
326A| 
326A| 
326A| 
326A| 
326A| 
326A| 
326A| 


3382 0000 
5341 
6706 
0640 005A 
60F2 


4E75 


; register setup: 


; Al must contain the screen base address. 

, D2 must contain a one word pattern. 

; D1 must contain the number of pixels in the vertical length of the line 
7 in the range 1..364 

; DO must contain the screen word column in the range 0..44 


: Assumptions: location SCRNBASE contains the video address 


; registers used: DO-D1 


PAINT _V 
paintvl 
@1 MOVE.W D2,0(A1,D0.W) ;write to screen 
SUBQ.W #1,D1 ;decrement count 
BEQ.S @2 ;return 
ADDI.W #ROWBYTES ,DO ;bump to next horizontal line 
BRA.S @1 ;loop to continue writing vertical. 
@2 RTS ;return 


4 Routine paintbit 
; This routine "paints" a vertical line one bit wide. 


; Call: BSR paintbit 
: register setup: 


4 Al must contain the screen base address. 

; D2 must contain the bit number to set 

; D1 must contain the number of pixels in the vertical length of the line 
7 in the range 1. .364 

; DO must contain the screen word column in the range 0..44 

; Assumptions: location SCRNBASE contains the video address 


H registers used: DO-D1 


PAINTBIT 


tex 
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tex 


326A| 

326A| O5F1 0000 @1 bset d2,0(a1l,d0.w) 

326E| 5341 subq.w #1,dl1 ;subtract one from heigth 

3270| 6706 beq.s @2 ;done 

3272 | 

3272| 0640 OO5A addi.w #ROWBYTES,d0O ;increment to next pixel row. 

3276| 60F2 bra.s @1 

3278 | 

3278| 4E75 @2 RTS ;return 

327A| 

327A| ; 

327A| ; 

327A| ; Routine makebutton --> creates a black lined box of the size 
327A| y specified by the parameters with button 
327A| - "label" and description if specified. 
327A| ; Also makes entries in active rectangle 
327A| ; table for later use with mouse. 

327A| ; 

327A| s the left top corner is addressed by al, 
327A| 7 the alternate keycode is contained in do. 
327A| 4 the description is in A3. 

327A| iH description location is in A2. 

327A| : '...' string appended to message if dl nonzero 
327A| ; 

327A| ; 

327A| ; Call: 

327A| ; 

327A| ; move.w <left/top corner point>,al 

327A| : move.b <alternate keycode>,d0 

327A| H lea <button description>,a3 

327A| 7 move.1 <description location>,a2 

327A| H <set dl for '...' string> 

327A| 7 bsr makebutn 

327A| ; 

327A| : Destroys regs DO-D2,D5,D6,A3 

327A| ; 

327A| 

327A| 

327A| MAKEBUTN 

327A| 48E7 4020 MOVEM.L D1/A2,- (SP) ;save string indicator and location ptr 
327E| 45F8 053A LEA RectTable ,A2 ;get ptr to active rect table 

3282| 3412 MOVE (A2) ,D2 ;get current count of rect's 

3284| C4Fc 0005 MULU #5,D2 ;£five entries per rect 

3288| D442 ADD D2 ,D2 ;double for word index 

328A| 525A ADDQ #1, (A2)+ ;incr for new rect 

328C| 3580 2000 MOVE DO,0(A2,D2.W) ;save keycode id for new rect 

3290| 6100 F488 BSR KeyToAscii ;convert keycode to Ascii 
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3294| 3800 MOVE DO ,D4 ;save for later display 

3296| 

3296 | ; compute X,Y pixel coordinates from starting address 

3296 | 

3296| 6100 016E BSR GETROWCOL ;get pixel row, byte col 

329A| CCFC 0008 MULU #8 ,D6 ;convert to pixel col 

329E| 3586 2002 MOVE D6,2 (A2,D2.W) ;save upper left X 

32A2| 3585 2004 MOVE D5,4(A2,D2.W) ; and Y coordinates 

326 | 

32A6| 700A MOVEQ #BTNWIDTH , DO ;set button parameters 

32A8| 721C MOVEQ #BTNHIGH,D1 

32AA| 614C BSR.S DRAWBUTN ;draw the button 

32AC | 

32AC| 2F09 MOVE.L Al1,-(SP) ;save original val 

32AE| 3278 052C MOVE LwrRight,al ;compute lower right coordinates 
32B2| 6100 0152 BSR GETROWCOL ;get pixel row 

32B6| CCFC 0008 MULU #8,D6 ;and pixel col 

32BA| 3586 2006 MOVE D6,6(A2,D2.W) ;save as X and 

32BE| 3585 2008 MOVE D5,8(A2,D2.W) ; Y coordinates 

32C2| 225F MOVE.L (SP)+,Al1 ;restore starting value 

32C4 | 

32C4 | H Add the button label and description 

32C4 | 

32C4| 48E7 F870 movem.1 d0-d4/al-a3,-(sp) ;save parameters 

32C8| E288 lsr.1 #1,d0 ;divide window width 

32CA| 6100 013A bsr getrowcol ;get the row and column coordinate of 
32CE | ;the window corner point 

32CE| DC80 add.1 d0,d6 ;adjust column pointer 

32D0 | 

32D0| E289 isr.1 #1,d1 ;divide window heigth 

32D2| 5981 subq.1 #4,dl1 ;decrement by half font heigth 
32D4| DA81 add.1 d1,d5 ;adjust row coordinate 

32D6 | 

32D6| 5346 SUBQ #1,D6 ;go back 1 and 

32D8| 4240 CLR DO ;display apple icon 

32DA| 6100 045E BSR DSPVAL 

32DE| 2004 MOVE.L D4,D0 ;get char to display 

32E0| 6100 0458 bsr dspval ;and go display alternate keycode 
32E4 | 

32E4| 4CDF OE1F movem.1 (sp)+,d0-d4/al-a3 ;retrieve parameters 

32E8| 4CDF 0402 MOVEM.L (SP)+,D1/A2 ;retrieve location and string indicator 
32EC | 

32EC| 224A MOVE.L A2,Al1 ;compute output pt for description 
32EE| 6100 0116 BSR GETROWCOL 

32F2| 6100 0340 BSR DSPSTRING ;and display it 

32F6| 

32F6| 4E75 RTS 


tex 
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32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32F8 | 
32FC| 
32FC| 
32FC| 
32FC| 
32FC| 
32FC| 
32FE | 
3300| 
3304 | 
3304 | 
3304 | 
3304 | 
3306 | 
3306 | 
3306 | 
3306 | 
3306 | 
3306 | 
3306 | 
330A| 


48E7 F870 


74FF 
7201 
6100 FE26 


93C3 


222F 0004 
4280 


tex 


3 Routine drawbutton --> creates a black lined box of the size 
; specified by the parameters. 


; the left top corner is addressed by al, 
iH the width is indicated by do. 
; the heigth is indicated by dl. 


; this routine calls paint box, and paintbit. 


. inputs: d0=window width in bytes (should be even) 
; dli=heigth in pixels 

7 al=window left/top corner point as a 

; 0..32670 screen offset address. 


7 Call: 
7 move.w <left/top corner point>,al 
7 move.w <button width>,d0 


iH move.w <button height>,dl 
7 bsr drawbutn 


DRAWBUTN 
movem.1 d0-d4/al-a3,-(sp) ;stack the arguments 


; draw the top edge of the button 


moveq #-1,d2 ;set the black bit pattern for paint_box 
moveq #1,dl1 ;set a 1 pixel line 
bsr paint_box 


‘ draw the right vertical edge of the button 


sub.1 d3,al 7on return from paint _box, al points to the 
;real address of the left point of the next 
;yhorizontal pixel line of the button, so d3, 
;which contains the displacement to the prior 
jlines right edge is added to the 
;left point to obtain the correct 
jaddress for the right edge. 

move.l 4(sp) ,dl ;momentarily restore the heigth 

clr.1 do 


@ "27 computer Boot ROM 2.48 Listing ¢ 215 of 265 


330C| 
330E | 
3312| 
3312 | 
3312 | 
3312 | 
3316 | 
331A| 
331A| 
331E | 
3320] 
3322 | 
3326 | 
3326 | 
3326 | 
3326 | 
3326 | 
3328 | 
3328 | 
332A | 
332C| 
332E | 
3332 | 
3332 | 
3332 | 
3332 | 
3334 | 
3338 | 
333C | 
3340] 
3342 | 
3342 | 
3342 | 
3342 | 
3342 | 
3342 | 
3342 | 
3342 | 
3342 | 
3342 | 
3342 | 
3342 | 
3342 | 
3346| 
3346| 
3346| 
3346| 


7407 
6100 FF5A 


226F 0014 
D3F8 0110 


222F 0004 
4280 
7407 
6100 FF46 


D3CO 


2017 
7201 
74EF 
6100 FEO6 


93C3 
93F8 0110 
31C9 052C 
4CDF OE1F 
4E75 


48E7 C040 


D3F8 0110 


moveq #7,d2 
bsr.s  paintbit 


iy now draw the left edge 
move.l1 20(sp) ,al 
add.1 SCRNBASE,al 


move.l 4(sp) ,dl 
clr.1 do 
moveq #7,d2 
bsr.s  paintbit 


;set the 1 bit mask for paintbit 


;draw the right edge 


of the button 
;restore the original corner point 
;add in the screen window address 


;restore the heigth 


;set the 1 bit mask for the left edge 


- now draw the bottom edge of the button 


add.1 d0,al 


move.l (sp) ,d0 
moveq #1,dl1 

moveq #-1,d2 
bsr paintb2 


;add the displacement to the corner point to arrive 
;at the correct address of the bottom left corner 
;restore the width 

;set the heigth at 1. 

;set the line pattern to black 


i: done - save lower right coordinate 


sub.1 d3,al 
sub.1 SCRNBASE,al 
move al,LwrRight 


movem.1 (sp)+,d0-d4/al1- 


rts 


iget offset address for lower right corner 


;save it 
a3 


" Routine to redraw the sides of a pulldown menu item. 


: Call: move.w <width 


of box>,d0d 


: move.w <heigth of box>,dl 
7 move.1 <pixeladdress>,al 
; jsr inversmenuitem 


DRAWSIDES 
movem.1 d0-d1/al,- (sp) 


id redraw the left vertical edge of the pull down menu 


add.1 SCRNBASE , al 


;add in the real video window address 
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334A | 
334C| 
334E | 
3352 | 
3352 | 
3352 | 
3352 | 
3354 | 
3358 | 
335A| 
335C| 
335E| 
3360| 
3360| 
3364 | 
3364 | 
3368 | 
3368 | 
336A| 
336A| 
336A| 
336A| 
336A| 
336A| 
336A| 
336A| 
336A| 
336A| 
336A| 
336A| 
336A| 
336A| 
336A| 
336E| 
336E| 
336E| 
336E| 
336E| 
3372 | 
3376 | 
3378 | 
337A| 
3380] 
3380| 
3382 | 
3384 | 
3386 | 


7407 
4280 
4EBA 


2017 
222F 
D3CcO 
5349 
4280 
4282 


4EBA 


4CDF 


4E75 


48E7 


COFC 
41F8 
3218 
4282 
263C 


5241 
141C 
30C2 
617E 


0004 


FFO8 


0203 


F080 


0008 
053A 


0000 03DE 


moveq 
clr.1 
jsxr 


#7,d2 
do 
paintbit 


;set the bit for paintbit 
;xremember to clear dO. 


: redraw the right vertical edge of the pulldownmenu 


move .1 
move .1 
add.1 
subq 

clr.1 
clr.1 


jsxr 


movem.1 (sp)+,d0-d1/al 


rts 

; Inputs: Al 
; A2 
; a3 
; A4 
7 DO 
$ D1 
; D4 
MAKEMENU 


MOVEM.L DO-D3/A0,- (SP) 


(sp) ,d0 
4(sp) ,dl 
do ,al 
#1,al 

do 

d2 


paintbit 


;restore the width 

;restore the heigth 

;point the pixel address to the top edge of the right side 
;adjust address to point to byte with actual right edge 
;remember to clear dO on call. 

;set bit 


;restore the parameters 


Displays pull down menu when called. Also makes 
entries in active rectangle table for each entry. 


.IF BMENU = 0 


. ENDC 


@1 ADDQ 


#8 ,DO 
RectTable ,AO 
(AO)+,D1 

D2 

#MENUSPC ,D3 


#1,D1 
(A4)+,D2 
D2, (AO) + 
GETROWCOL 


starting pixel address for menu "box" 

starting pixel address for menu option message 
ptr to menu strings 

ptr to menu id's 

menu "box" width 

menu "box" heigth 

# of menu entries 


;convert width to pixel count 

;get ptr to active rectangle table 
;get rectangle count 

;clear for use 

;Sspace between menu entries 


;incr rectangle count 

;get menu entry id 

;save in table 

;convert address to X,Y coordinates 


tex 
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3388 | 
338C | 
338E | 
3390| 
3392 | 
3394 | 
3398 | 
339A | 
339C| 
339E | 
33A0 | 
33A4 | 
3306 | 
338 | 
33AA | 
33AA | 
33AC | 
33AE | 
33AE | 
33B2 | 
33B6 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33B8 | 
33BC | 
33BE | 


CCFC 0008 
30C6 
30C5 
DC40 
30C6 
0645 O000B 
30C5 
2F09 
224A 
6166 
6100 035E 
225F 
D3C3 
D5C3 


5344 
66D2 


31C1 053A 
4CDF 010F 
4E75 


48E7 FEFE 
615A 


MULU #8,D6 ;convert to pixels 

MOVE D6, (AO) + ;Ssave upper X coordinate 
MOVE D5, (AO) + ;save upper Y coordinate 
ADD DO ,D6 ;compute and save 

MOVE D6, (AO) + ; lower X coordinate 
ADD #MENUSPC/90,D5 ;compute and save 

MOVE D5, (AO) + ; lower Y coordinate 
MOVE.L Al1,-(SP) ;save "box" address 


tex 


MOVE.L A2,A1 
BSR.S  GETROWCOL 
BSR DSPMSG 
MOVE.L (SP)+,Al 
ADD.L  D3,A1 
ADD.L D3,A2 


;get address for menu message 
;compute msg output pt 

;do display 

;restore address for box 

;incr to next start pt for rectangle 
;also incr message address 


SUBQ #1,D4 
BNE.S @1 


jloop until done 


MOVE D1 ,RectCnt ;save new rectangle count 
MOVEM.L (SP)+,D0-D3/A0 ;restore regs and exit 
RTS 


e routine writetitle --> writes the title for the window whose 
i. left top corner is addressed by al, 
; whose width is indicated by do. 


: To arrive at the correct address to write the title string, 
4 the window width and string length must be divided by 2, the 
iH result of the string division is subtracted from the width 
division to arrive at the general byte column position to 

Hy begin writing the title. 


7 inputs: d0=window width 

; al=window left/top corner point as a 
; 0..32670 screen offset address. 

; a3=title string address 


Hi output: all registers used are restored. 


WRITETITLE 
movem.1 d0-d6/a0-a6, - (sp) 
bsr.s getlength 


;Save as many registers as possible 
;calculate the length of the string 
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33BE | 
33C0 | 
33C2 | 
33C4 | 
33C4 | 
33C6 | 
33C6 | 
33C8 | 
33CA | 
33CA | 
33CE | 
33CE | 
33D2 | 
33D2 | 
33D6 | 
33D8 | 
33DA | 
33DE | 
33E0 | 
33E4 | 
33E6 | 
33E6 | 
33E6 | 
33E6 | 
33EA | 
33EE | 
33F0 | 
33F4 | 
33F6 | 
33F8 | 
33FA | 
33FC | 
3400| 
3400| 
3404 | 
3406 | 
3406 | 
3406 | 
3406 | 
3406 | 
3406 | 
3406 | 
3406 | 
3406 | 
3406 | 
3406 | 
3406 | 


E288 
E28A 
9082 


6140 


5845 
DC80 


48E7 


6100 


4CDF 
5945 
5546 
0246 
9DCE 
6100 
224E 


266F 
6100 
5242 
0242 
2002 
5840 
720F 
74FF 
6100 


4CDF 
4E75 


TETEF 


tex 


isr.1 #1,d0 ;divide window width 

lsr.1  #1,d2 ;divide string length 

sub.1 d2,d0 71/2 width - 1/2 length --->d0 

bsr.s  getrowcol ;get the row and column coordinate of 
;the window corner point 

addq #4,d5 jadjust for 4 pixel rows 

add.1 d0,d6 ;adjust column pointer 

movem.1 d5/d6,- (sp) ;stack line/column pointers for later ref 

bsr dspmsg 

movem.1 (sp)+,d5/d6 ;restore the parameters 

subq #4,d05 ;reduce the pixel pointer by 4 

subq #2 ,d6 ;backspace the column pointer by 2 

andi.w #SFFFE,d6 ;round off to nearest word 

sub.1 a6,a6 ;clear a6 

bsr setcrsr2 ;convert standard row/col to pixel offset 

move.1l a6,al ;move to al 

restore the string pointer so that its length can be recalculated. 

move.l1 40(sp) ,a3 

bsr getlength ;the length is returned in a2 and d2 

addq #1,d2 ;must round off the length to a word boundary 

andi.w #SFFFE,d2 

move.l d2,d0 7set width of inverted window to length.. 

addq #4,d0 ;..0f string plus 4 

moveq #15,d1 ;set the heigth of the window 

moveq #-1,d2 ;set the mask 

bsr inverse ;invert the title 

movem.1 (sp)+,d0-d6/a0-a6 

rts 


routine getrowcol --> converts a screen address displacement 
7 to row and column coordinates. 


H inputs: al=screen address in the range 0. .32759 
; outputs: d5 set to row 
; d6é set to byte col (the remainder) 


_ registers used: d2 (but saved and restored) 
: registers destroyed: d5,d6 (set to new values) 
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3406| 
3406| 
3406| 
3408 | 
340A| 
340E | 
3410] 
3412 | 
3414 | 
3414| 
3414| 
3414| 
3414| 
3414| 
3414| 
3414| 
3416| 
3418 | 
3418 | 
3418 | 
3418 | 
3418 | 
3418 | 
3418 | 
3418 | 
3418 | 
3418 | 
3418 | 
3418 | 
3418 | 
3418 | 
3418 | 
3418 | 
341A| 
341C| 
341E| 
3420] 
3422 | 
3424 | 
3424 | 
3424 | 
3424 | 
3424 | 
3424 | 
3424 | 
3424 | 
3424 | 


2F02 
2409 
84FC 
3A02 
4842 
3C02 


241F 
4E75 


244B 
141A 
66FC 
95CB 
240A 
4E75 


005A 


GETROWCOL 


move. 
move. 


divu 


1 d2,-(sp) 

1 al,d2 
#ROWBYTES , d2 
d2,d5 
d2 

w d2,d6 


: MOVE.L A1,D2 

; SUBI.L #TOPOFFSET,D2 
; DIVU #RBYTES , D2 

: MOVE D2,D5 

; ADDQ #1,D5 


1 (sp)+,d2 


; routine getlength --> 


inputs: 
outputs: 


tex 


;save d2 

;move the address to d2 

;divide the address by 90 bytes 
;new row 


;remainder is column 


;now calculate row 
;decr for offset 
;divide by bytes per char row 


;incr to next row 


;restore d2 
;return 


returns a value which is the length of 
the string referenced by a3. The 
string is assumed to be terminated by 
the null character value. 


a3=string address 
d2,a2: string length 


" registers destroyed: d2,a2 (set to new values) 


GETLENGTH 
move.l a3,a2 

@1 move.b (a2)+,d2 
bne.s @l 


sub.1 a3,a2 


;read a byte 
;continue 
;subtract the beginning from the end. 


move.l a2,d2 ;move it to d2 for reference 
rts ;return 
; Routine to display uncompressed icon. CHGO008 
; INPUTS: 
H A2 = pointer to uncompressed icon (48 x 32 bitmap) 
i A6 = pointer to (even!) screen address for upper left hand 


corner of icon 


; SIDE EFFECTS: 
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3424 | 
3424 | 
3424 | 
3424 | 
3424 | 
3426 | 
3428 | 
342A | 
342C| 
342C| 
342C| 
342C| 
342C| 
342C| 
342C| 
342C| 
342C| 
342C| 
342C| 
342C| 
342C| 
342C| 
342C| 
342C| 
342C| 
342C| 
342C| 
342C| 
3430| 
3432 | 
3432 | 
3434 | 
3436 | 
3438 | 
3438 | 
343A] 
343A | 
3435 | 
3442 | 
3442 | 
3444} 
3448 | 
344z| 
3442 
3448 | 
3450| 
3450| 


7005 
721F 
6102 
4E75 


48E7 3802 
765A 


4284 
3400 
6002 


5244 


1D9A 4000 
51CA FFF8 


DDC3 
51C9 FFEC 
5246 


4CDF 401C 
4E75 


. DO-D1 are trashed 


DSPRGICON 
MOVEQ #ICONWIDTH-1,D0 ;set default width CHG008 
MOVEQ #ICONHIGH-1,D1 ; and heigth CHGO08 
BSR.S OUTPUT ;and do display CHGO008 
RTS ; CHG008 


; Subroutine to display message or icon. 
y The calling routine must provide the pointer to the raw bit map. 


; Call: load dO with number of bytes - 1 in the x axis 
H load dl with the number of pixels - 1 in the y axis 


: lea sourcebytes ,a2 
7 lea destination,a6 
4 jsr or bsr output 


: Returns with d6 updated. 


MOVEM.L D2-D4/A6,-(SP) ;save regs 
moveq #90,d3 


Loop0O clr.1 dé4 
move.w d0,d2 
bra.s  loop2 


loop1l addq #1,d4 


Loop2 move.b (a2)+,0(a6,d4) 
dbf d2,loop1 


add.1 d3,a6 
dbf dl ,loop0 
addq #1,d6 


MOVEM.L (SP)+,D2-D4/A6 ;restore 
rts 


. PAGE 


tex 
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3450| 
3450| 
3450| 
3450| 
3450| 
3450| 
3450| 
3450| 
3450| 
3450| 
3450| 
3450| 
3450| 
3450| 
3450| 
3454 | 
3458 | 
345A| 
345E | 
3462 | 
3464 | 
3464 | 
3464 | 
3464 | 
3464 | 
3464 | 
3464 | 
3464 | 
3464 | 
3464 | 
3464 | 
3464 | 
3464 | 
3464 | 
3464 | 
3466| 
3468 | 
346A| 
346A| 
346E | 
3470| 
3472 | 
3476 | 
3478 | 
347A | 
347A | 
3478 | 


6100 OODA 
3A7C 287E 
610A 
DBF8 0110 
6100 008C 
4E75 


2F00 
224D 
619C 


47FA 05A8 
B7CA 
6608 
0645 0016 
5646 
6038 


47FA 0552 
B7CA 


; Routine to display error icon with id #. 


; INPUTS: 

7 D1 = id # to display 

iy A2 = pointer to compressed icon 

; A5 = upper left corner address for icon as 


2 offset from screen address 


; SIDE EFFECTS: 
; D5-D6 are trashed 


DSPNUMICON 


BSR DSPALRTICON ;display the icon 

MOVE #ERRSTRT ,A5 ;get icon address offset 
BSR.S DSPNUM ;display id # on icon 
ADD.L SCRNBASE , A5 ;get screen address 

BSR DSPBAD ;display bad mark over icon 
RTS 


; Routine to display icon id #. 


; INPUTS: 

; D1 = id # to display 

; A2 = pointer to compressed icon 

: A5 = upper left corner address for icon as 


‘ offset from screen address 


; SIDE EFFECTS: 
- D1/D5-D6/A2-A3 are trashed 


, 


DSPNUM MOVE.L DO,-(SP) ;save reg 
MOVE.L A5,Al1 ;convert icon address to row, col 
BSR GETROWCOL 
LEA XCARD , A3 ;slot card icon? 
CMPA.L A2,A3 
BNE.S @1 ;skip if not 
ADD #SLOTROW,D5 ;add offsets for card id to cursor ptrs 
ADDQ #SLOTCOL,D6 
BRA.S @6 


@1 LEA MEMBRD , A3 ;memory board? 
CMPA.L A2,A3 ; 


tex 
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3480| 
3482 | 
3486 | 
3488 | 
348A| 
348A | 
3485 | 
3490| 
3490| 
3494 | 
3498 | 
349C| 
3498 | 
34A0 | 
34A0 | 
34A4 | 
3426 | 
34a8 | 
34AA | 
34AC | 
3425 | 
3425 | 
3425 | 
34B0 | 
34B2 | 
34B2 | 
34B6 | 
34B8 | 
34BA | 
34BE | 
34C0 | 
34C0 | 
34C2 | 
34C4 | 
34C8 | 
34CA | 
34CA | 
34CE | 
34CE | 
34D0 | 
34D2 | 
34D6 | 
34D6 | 
34D8 | 
34DA | 
34DA | 
34DA | 


6608 
0645 
5846 
6028 


4238 
6646 


47FA 
B7CA 
0645 
5846 
6012 


47FA 
B7CA 
6606 
5C45 
5646 
6004 


5B45 
5846 


6100 
5341 
6606 
45FA 
600E 


5341 
6606 
45FA 
6004 


45FA 
7000 
7204 
6100 


201F 
4E75 


0010 


O2AF 


088C 


0012 


067C 


0266 


0480 


047B 


OA7A 


FF58 


@2 


@3 


@4 


@6 


@7 


es 


@9o 


@99 


CMPA.L 


CMPA.L 
BNE.S 
ADDO 
ADDO 
BRA.S 


SUBQ 
ADDQ 


BSR 
SUBQ 
BNE.S 
LEA 
BRA.S 


SUBQ 
BNE.S 
LEA 

BRA.S 


@2 
#MEMROW , D5 
#MEMCOL , D6 
@6 


SYSTYPE 
@99 


DISKETTE ,A3 
A2,A3 
#DISKROW,D5 
#DISKCOL,D6 
@6 


DRIVEN ,A3 
A2,A3 

@4 
#DRVROW,D5 
#DRVCOL ,D6 
@6 


#INSRTROW , D5 
#INSRTCOL ,D6 


SETCRSR 
#1,D1 
@7 


;skip if not 
;add offsets for card id 


;and go display 


;Lisa 2 system? 
jexit if yes - no id #'s 


;diskette icon? 


;compute posn for id # 


;drive icon? 
;skip if not 
jadd offsets for id # 


, 


;and go display 
;must be insert icon 


;get screen address in A6 
;check number to display 


;set ptr to # icon 


jis it 2? 


;must be 3 


;set width - 1 
;and heigth - 1 
;display it 


;xrestore reg 
jand exit 


CHGO09 
CHGO09 


CHGO09 
CHGO09 
CHGO09 
CHGO09 
CHGO09 
CHGO09 


CHG009/CHG024 
CHGO09 


tex 
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34DA| 
34DA | 
34DA | 
34DA | 
34DA| 
34DA | 
34DA | 
34DA | 
34DA | 
34DA | 
34DA | 
34DE | 
34E0 | 
34E2 | 
34E6 | 
34E8 | 
34EC | 
34EC | 
34F0 | 
34F2 | 
34F6 | 
34F8 | 
34FA| 
34FA | 
34FA | 
34FA | 
34FA | 
34FA| 
34FA| 
34FA| 
34FA | 
34FA | 
34FA| 
34FA | 
34FA | 
34FA | 
34FA | 
34FE | 
3500] 
3502 | 
3506| 
350A| 
350E| 
350E| 
3510 
3512 | 
3514| 


6100 
7AT3 
7C10 
6100 
2A4E 
6100 


45FA 
6108 
45FA 
6102 
4E75 


48E7 
2C4D 
5C4E 
48E7 
6100 
4CDF 


7654 
741F 
7202 
3016 


FC8C 


0236 


OOF8 


079A 


O7E2 


F006 


0006 
OODA 
6000 


; Routine to display error icon. 


; INPUTS: 
; A2 = pointer to compressed icon 


; SIDE EFFECTS: 
; A2/A6, D5-D6 are trashed 


DSPERRICON 
BSR MAKEALERT ;open alert box 
MOVEQ #ERRROW , D5 ;set screen ptrs 
MOVEQ #ERRCOL , D6 
BSR SETCRSR ;get screen address in A6 
MOVE.L A6,A5 ;save it 
BSR DSPICON ;go do display of component icon 
DSPBAD 
LEA CHECKMRK , A2 ;get ptr to check icon 
BSR.S MRGICON ;do the merge 
LEA BADMRK , A2 ;get ptr to slash icon 
BSR.S MRGICON ;merge it 
RTS jand exit 


; Routine to merge two icons, one over the other. 


; INPUTS: 
: A2 
; AS 


ptr to icon to be merged 
pointer to base icon 


; SIDE EFFECTS: 


MRGICON MOVEM.L DO-D3/A5-A6,-(SP) ;save regs 


MOVE.L A5,A6 ;get start address 
ADDQ #6,A6 ;first display new icon next to other icon 
MOVEM.L A5-A6,- (SP) ;save ptrs 
BSR DSPICON 
MOVEM.L (SP) +,A5-A6 ;restore ptrs 
MOVEQ #ROWBYTES-6,D3 ;set up row offset constant 
MOVEQ #32-1,D2 jicon heigth in pixel lines - 1 
@1 MOVEQ #3-1,D1 ;icon width in words - 1 
@2 MOVE (A6) ,DO ;get from byte 


tex 


@ "27 Computer Boot ROM 2.48 Listing * 224 of 265 


3516 | 
3518 | 
351A] 
351E | 
3520 | 
3522 | 
3526 | 
3526 | 
352A | 
352C| 
352C| 
352C| 
352C| 
352C| 
352C| 
352C| 
352C| 
352C| 
352C| 
352C| 
352C| 
352C| 
352C| 
352C| 
3530 | 
3534 | 
3536 | 
3538 | 
353C| 
353E | 
3540 | 
3544 | 
3546 | 
354A | 
354C | 
3550 | 
3554 | 
3556 | 
3556 | 
3556 | 
3556 | 
3556 | 
3556 | 
3556 | 
3556 | 
3556 | 
3556 | 


815D 
425E 
51C9 
DBC3 
DDC3 
51CA 


4CDF 
4E75 


48E7 
6100 
7AT3 
7C10 
6100 
220A 
6A0C 
0881 
2441 
6100 
6004 
6100 
4CDF 
4E75 


FFF8 


FFEE 


600F 


C020 
FC36 


01E0 


001F 


FEDC 


0094 
0403 


tex 


OR DO, (A5) + ;do the merge 

CLR (A6) + ;erase the old 

DBF D1,@2 ;do full row 

ADDA.L D3,A5 ;bump ptrs to next row 
ADDA.L D3,A6 

DBF D2,@1 7go to next row 


MOVEM.L (SP)+,D0-D3/A5-A6 ;restore and exit 
RTS 


; Routine to display alert icon. 


; INPUTS: 
; A2 = pointer to icon 
4 MSB set if uncompressed icon, else compressed assumed CHG008 


; SIDE EFFECTS: 
; A6, D5-D6 are trashed 


DSPALRTICON 
MOVEM.L DO-D1/A2,-(SP) ;save regs CHGO08 
BSR MAKEALERT ;open alert box 
MOVEQ #ALRTROW,D5 ;set screen ptrs 
MOVEQ #ALRTCOL , D6 
BSR SETCRSR ;get screen address in A6 
MOVE.L A2,D1 ;check icon address CHGO08 
BPL.S @1 iskip if for compressed icon CHGO008 
BCLR #31,D1 ;clear indicator bit CHGO08 
MOVE.L D1,A2 ;and restore ptr CHGO008 
BSR DSPRGICON ;display an uncompressed icon CHGO008 
BRA.S @2 ;skip to exit CHGO008 
@1 BSR DSPICON ;go do display CHG008 
@2 MOVEM.L (SP)+,D0-D1/A2 ;restore regs CHGO08 
RTS ; CHG008 


; Routine to display icon with question mark along side. 


; INPUTS: 
* A2 
; OUTPUTS: 
: A5 = icon screen address 
; SIDE EFFECTS: 


pointer to compressed icon 
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3556 | 
3556 | 
3556 | 
3556 | 
3556 | 
355A| 
355C | 
355E | 
3562 | 
3564 | 
3566 | 
356A| 
356C | 
3570 | 
3572 | 
3574 | 
3574 | 
3574 | 
3574 | 
3574 | 
3574 | 
3574 | 
3574 | 
3574 | 
3574 | 
3574 | 
3574 | 
3574 | 
3578 | 
357A| 
357C| 
357E | 
3582 | 
3586 | 
3588 | 
3588 | 
3588 | 
3588 | 
3588 | 
3588 | 
3588 | 
3588 | 
3588 | 
3588 | 
3588 | 
3588 | 
3588 | 


6100 FC10 
7AT3 
7010 
6100 O1BA 
2A4E 
617C 
45FA O06FD 
2C4D 
DCFC 0006 
6170 
4E75 


48E7 E000 
7006 
7220 
74FF 
6100 FBAE 
4CDF 0007 
4E75 


, A2/A6, D5-D6 are trashed 
DSPQICON 
BSR MAKEALERT ;open alert box 
MOVEQ #ERRROW , D5 ;set screen ptrs 
MOVEQ #ERRCOL , D6 
BSR SETCRSR ;get screen address in A6 
MOVE.L A6,A5 ;save it 
BSR.S DSPICON ;go do display of component icon 
LEA QUESTION ,A2 ;get ptr to ? icon 
MOVE.L A5,A6 ;restore start address 
ADDA #6,A6 ;display next to component RMOOO 
BSR.S DSPICON 
RTS 


; Routine to hilite (invert) a test icon. 


; INPUTS: 
o Al = address of icon 


; SIDE EFFECTS: 
: None 


INVICON MOVEM.L DO-D2,- (SP) ;save regs 
MOVEQ #ICONWIDTH,DO ;set parms for icon 
MOVEQ #ICONHIGH ,D1 


MOVEQ #-1,D2 ;set fill pattern 

BSR INVERSE ;and go invert selected one 
MOVEM.L (SP) +,D0-D2 ;restore 

RTS 


; Routine to display test icons. 


; INPUTS: 
i None 


; SIDE EFFECTS: 
p A2/A6 trashed 


tee 
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3588 | 
358C| 
3590| 
3592 | 
3592 | 
3592 | 
3596 | 
359A| 
359C| 
359C| 
359C| 
35A0| 
35A4 | 
3506 | 
3506 | 
3526 | 
35AA| 
35RE | 
35RE | 
35RE | 
35B2 | 
35B4 | 
35B6 | 
35B6 | 
35B6 | 
35B6 | 
35B6 | 
35B6 | 
35B6 | 
35B6 | 
35B6 | 
35B6 | 
35B6 | 
35B6 | 
35B6 | 
35B6 | 
35B6 | 
35B8 | 
35BC | 
35BE | 
35BE | 
35BE | 
35C0| 
35C4 | 
35C6 | 
35C6 | 
35C6 | 


45FA 
3C7C 
601C 


45FA 
3C7C 
6012 


45FA 
3C7C 
6008 


45FA 
3C7C 


DDF8 
612E 
4E75 


61D0 
3A7C 
6016 


61D2 
3A7C 
600E 


61D4 


0401 
1DF6 


043A 
1E04 


03AD 
1E12 


046C 
1E20 


0110 


1DF6 


1E04 


DSPMBRD 


DSPIOB 


DSPXCRD 


DODSPLY 


; Routine to display icon with 


CPUBRD , A2 
#CPUSTRT ,A6 
DODSPLY 


MEMBRD , A2 
#MEMSTRT , A6 
DODSPLY 


IOBRD , A2 
#IOSTRT , AG 
DODSPLY 


XCARD , A2 
#XCRDSTRT , A6 


SCRNBASE , A6 
DSPICON 


; Inputs: 

y None 

; Outputs: 

None 

; Side Effects: 

: A6 trashed 

CHKCPU 
BSR.S DSPCPU 
MOVEA #CPUSTRT ,A5 
BRA.S DSPCHECK 

CHKMBRD 
BSR.S DSPMBRD 
MOVEA #MEMSTRT , A5 
BRA.S DSPCHECK 

CHKIOBRD 
BSR.S DSPIOB 


;set ptr for CPU board icon 
;and address 
;go do display 


;set ptr for Memory board icon 
jand address 
;go do display 


;set ptr for I/O board icon 
;and address 
;go do display 


;set ptr for I/O slot card icon 
jand address 


;compute screen address for display 
igo do display 


;redisplay CPU icon 
;get start address for it 
;and go add check mark 


;xredisplay Memory board icon 
;get start address for it 
;and go add check mark 


;xedisplay I/O icon 


tex 
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35C8 | 
35CC | 
35CE | 
35CE | 
35CE | 
35D0 | 
35D4 | 
35D4 | 
35D4 | 
35D8 | 
35DC | 
35E0 | 
35E2 | 
35E2 | 
35E2 | 
35E2 | 
35E2 | 
35E2 | 
35E2 | 
35E2 | 
35E2 | 
35E2 | 
35E2 | 
35E2 | 
35E2 | 
35E2 | 
35E2 | 
35E6 | 
35E8 | 
35E8 | 
35EA | 
35EC | 
35EC | 
35F0 | 
35F2 | 
35F2 | 
35F4 | 
35F6 | 
35F8 | 
35FA| 
35FC | 
35FE | 
35FE | 
3602 | 
3606| 
3608 | 
360A| 


3A7C 1E12 
6006 


61D6 
3A7C 1E20 


45FA 06B2 
DBF8 0110 
6100 FF1C 
4E75 


48E7 EOAO 
204E 


7217 
7405 


303C 0100 
101A 


E248 
6714 
6404 
421E 
6002 
1CDA 


51CA FFF2 
DCFC 0054 
7405 
60E8 


tex 


MOVEA #IOSTRT,A5 ;get start address for it 
BRA.S §DSPCHECK ;and go add check mark 
CHKXCRD 
BSR.S DSPXCRD ;xedisplay I/O slot card icon 
MOVEA #XCRDSTRT,A5 ;get start address for it 
DSPCHECK 
LEA CHECKMRK , A2 ;get ptr to check icon 
ADDA.L SCRNBASE ,A5 ;compute screen address for display 
BSR MRGICON ;and go do merge 
RTS 


; Routine to display compressed icon. 


; INPUTS: 

A2 = pointer to compressed icon 

. AG6 pointer to (even!) screen address for upper left hand 
; corner of icon 

; SIDE EFFECTS: 

: A6 is trashed 


DSPICON 
MOVEM.L DO-D2/A0/A2 ,- (SP) ; CHGO009 
MOVE.L A6,A0 ; Save screen start address 
MOVEQ #23,D1 ; There are 24 octals in an icon 
MOVEQ #5,D2 ; reset row bytes counter 
DLOOP MOVE #$100,DO ; prime DO for 8 bit count count 
MOVE.B (A2)+,D0 ; load map byte from compressed image 
MLOOP LSR.W  #1,D0 ; shift off map bit 
BEQ.S DONE ; byte done when = 0 
BCC.S BLACK ; dispatch on the bit 
CLR.B (A6)+ ; store zero in new 
BRA.S CHECK ; continue for all 8 bits 
BLACK MOVE.B (A2)+, (A6)+ ; store byte in new 
CHECK DBF D2 ,MLOOP ; see if on scanline seam(every 6 bytes) 
ADDA #90-6,A6 ; bump to next scanline RM015 
MOVEQ #5,D2 ; reset row bytes counter 
BRA.S MLOOP ; continue for all 8 bits 
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tex 


360A| 51C9 FFEO DONE DBF D1 ,DLOOP ; do the rest of the octals in ICON 
360E | 

360E | ; Now unXOR the icon on the screen 

360E| 2C48 MOVE.L AO,A6 ; get screen pointer saved above 
3610| 244E MOVE.L A6,A2 ; second pointer 

3612| D4Fc 005A ADDA #90 ,A2 ; scanline pointer RM015 
3616 | 

3616| 323C 001E MOVE #30 ,D1 ; do 31 scanlines 

361A| ; This is the cause of the even Sestinctioa restriction 

361A| 201E XLOOP MOVE.L (A6)+,D0 ; get long from previous scanline 
361C| B19A EOR.L DO, (A2)+ ; xor into this scanline 

361E| 301E MOVE.W (A6)+,D0 ; get word from previous scanline 
3620| B15A EOR.W DO, (A2)+ ; xor into this scanline 

3622| D4FC 0054 ADDA #90-6,A2 ; next scan line + rowbytes RM015 
3626| DCFC 0054 ADDA #90-6,A6 ; next scan line + rowbytes RM015 
362A | 

362A| 51C9 FFEE DBF D1 ,XLOOP 

362E| 4CDF 0507 MOVEM.L (SP)+,D0-D2/A0/A2 ; CHGO09 
3632| 4E75 RTS 

3634 | 

3634 | . PAGE 

3634 | a a aaa a at i a a a ata 
3634 | ; Subroutine to display text string according to keyboard id 

3634 | ; Inputs: 

3634 | Hi A3 = ptr to message 

3634 | H D1 = nonzero if '...' string to be appended 

3634 | ; Outputs: 

3634 | : A2 = ptr to start of string 

3634 | 4 A3 = ptr to end of string 

3634 | ; Side Effects: 

3634 | ; D5-D6, A3 trashed 

3634 | a aaa mec a i ee a er a 
3634 | 

3634 | DSPSTRING 

3634| 48E7 AO0O MOVEM.L DO/D2,- (SP) ;save regs 

3638| 45FA 0887 LEA MENUHDG , A2 ;don't translate service mode messages 
363C| B7CA CMPA.L A2,A3 

363E| 6770 BEQ.S DSPOUT ;skip if it is 

3640| 244B MOVE.L A3,A2 ;else save starting point 

3642| 1038 01B2 MOVE.B KEYID,DO ;get keyboard id 

3646| 6768 BEQ.S DSPOUT ;skip if no id available 

3648| 0200 003F ANDI.B #53F,D0 ;clear mfg code 

364C| 1400 MOVE.B DO,D2 ;move to working reg 

364E | 

364E| ; Search for US, UK or Canadian keyboard 

364E | 

364E| 0202 OOFO ANDI.B #SF0,D2 701d US keyboard? 
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3652 | 
3654 | 
3658 | 
365A| 
365E| 
3660| 
3662 | 
3662 | 
3666| 
3668 | 
366C| 
366E| 
366E| 
366E| 
366E| 
3672 | 
3674| 
3678 | 
367A| 
367A| 
367A| 
367E| 
3680| 
3684 | 
3686| 
3686| 
3686| 
3686| 
368C| 
368E| 
3692 | 
3694 | 
3698 | 
369A| 
369E| 
36A0 | 
36A0 | 
36A2 | 
36A4 | 
36A6 | 
36A6 | 
36A6 | 
36A8 | 
36AA| 
36AA| 
36AA| 
36AC| 


675C 
0c02 
6608 
0c00 
6726 
604E 


0c02 
661E 
0c00 
6742 


0c00 
6732 
0c00 
672C 


0c00 
672A 
0co0 
6724 


0838 
6612 
0445 
6124 
0645 
611E 
0645 
6010 


6130 
612E 
600A 


4A1B 
66FC 


4A1B 
66FC 


0030 


003D 


0020 


002F 


002E 


0026 


002D 


0027 


0007 


000A 


000A 


000A 


02A2 


BEQ.S 
CMPI .B 
BNE.S 
CMPI.B 
BEQ.S 
BRA.S 


@1 CMPI.B 
BNE.S 
CMPI .B 
BEQ.S 


DSPOUT 
#530 ,D2 
@1 

#$3D,D0 
DSPALL 
DSPOUT 


#$20 ,D2 
DSPALL 
#$2F,D0 
DSPOUT 


yes - go do English display 
7US or Canadian layout? 


;Canadian? 
7yes - display all languages 
;else just English 


;European keyboard? 

;no - display all languages 
;UK? 

;yes - display English 


; Search for German type keyboard 


CMPI.B 
BEQ.S 
CMPI.B 
BEQ.S 


#$2E ,DO 
DSPGERMN 
#526 ,D0 
DSPGERMN 


;German? 


;Swiss-German? 


; Search for French type keyboard 


CMPI.B 
BEQ.S 
CMPI .B 
BEQ.S 


; Display all languages for any other keyboard (e.g., Italian, Spanish, etc.) 


DSPALL BTST 
BNE.S 


BSR.S 
BSR.S 
BRA.S 
@1 BSR.S 


BSR.S 
BRA.S 


DSPFRNCH 
TST.B 
BNE.S 


#$2D ,DO 
DSPFRNCH 
#$27,DO 
DSPFRNCH 


#MENU , STATFLGS 
@1 

#CHRSPC ,D5 
DSPIT 

#CHRSPC ,D5 
DSPIT 

#CHRSPC ,D5 
DSPOUT 


DSPMSLSH 
DSPMSLSH 
DSPOUT 


(A3) + 
DSPGERMN 


(A3) + 
DSPFRNCH 


; French? 


;Swiss-French? 


;doing menu? 

iskip if yes 

;back up one row 

;display English string 

jincr to next row 

;display French translation 
;bump another row 

;go do final display of German 


;display English followed by / 
;display French followed by / 
;and go do final German display 


;skip two strings before output 


;skip one string before output 


tex 
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36AE | 
36B0| 
36B0| 
36B2 | 
36B6 | 
36B8 | 
36B8 | 
36B8 | 
36B8 | 
36B8 | 
36B8 | 
36B8 | 
36B8 | 
36B8 | 
36B8 | 
36B8 | 
36B8 | 
36B8 | 
36BC | 
36BE | 
36C0 | 
36C2 | 
36C4 | 
36C8 | 
36CA| 
36CA| 
36CC| 
36D0| 
36D2 | 
36D2 | 
36D2 | 
36D2 | 
36D2 | 
36D2 | 
36D2 | 
36D2 | 
36D2 | 
36D2 | 
36D2 | 
36D2 | 
36D2 | 
36D4| 
36D6| 
36D8 | 
36DA| 
36DA| 
36DA| 


244B 


6106 
4CDF 
4E75 


48E7 
6142 
2F0B 
4n41 
6706 
STFA 
6136 


265F 
4CDF 
4E75 


612C 
702F 
6162 
4E75 


0005 


0600 


O7E7 


0060 


MOVE.L A3,A2 ;save new beginning ptr 
DSPOUT BSR.S DSPIT ;do display 

MOVEM.L (SP)+,D0/D2 ;restore regs 

RTS 7; and exit 


; Inputs: 

: A3 = ptr to message 

; D1 = nonzero if '...' string to be appended 
; Outputs 

‘ None 


; Side Effects: 
- A3 updated to next location after 0 byte 


DSPIT MOVEM.L D5-D6,- (SP) ;save cursor ptrs 
BSR.S DSPMSG ;output message 
MOVE.L A3,-(SP) ;save msg ptr 
TST D1 ;check if periods needed 
BEQ.S @9 ;skip if not 
LEA PERIODS ,A3 ;else do display 
BSR.S DSPMSG 

@9o 
MOVE.L (SP)+,A3 ;restore regs and exit 
MOVEM.L (SP) +,D5-D6 
RTS 


; Subroutine to display text string followed by '/' 
; Inputs: 

iu A3 = ptr to message 

; Outputs: 

; None 

; Side Effects: 

; A3 updated to next location after 0 byte 


DSPMSLSH 
BSR.S DSPMSG ;output message 
MOVEQ #'/',DO ;display / 
BSR.S  DSPVAL 
RTS 


; Subroutine to display alert box message 


tee 
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tex 


36DA| ; Inputs: 

36DA| iH A3 = ptr to message 

36DA| ; Outputs: 

36DA| : None 

36DA| ee SS SSS a Se a See rear e eee 
36DA| 

36DA| DSPALRTMSG 

36DA| 48E7 OE00 MOVEM.L D4-D6,- (SP) ;save regs CHGO005 
36DE| 3A3C 007E MOVE #MSGROW , D5 ;set screen ptrs 

36E2| 7C18 MOVEQ  #MSGCOL,D6 

36E4| 3805 MOVE D5,D4 ;set left margin in case of CR CHGO05 
36E6| 6118 BSR.S DSPMSG igo do display 

36E8| 4CDF 0070 MOVEM.L (SP)+,D4-D6 ;restore regs CHGO05 
36EC| 4E75 RTS 

36EE | 

36EE | PRR SSS SSS SS ss a a ae ee SSS S-S= 

36EE | ; Routine to convert row coordinate to pixel row coordinate before 

36EE | ; doing message display 

36EE | : 

36EE | ; Expects D5 = row coordinate from 0-32 

36EE | Fa a aa aaa a Ta a a la a a tn 
36EE | 

36EE | CONVRTD5 

36EE| CAFC 000A MULU #10,D5 ;multiply by pixel lines per char row 
36F2| 610C BSR.S DSPMSG ;then go do message 

36F6 | RTS 

36F6| .ENDC ; {USERINT} 

36F6 | fem aS es SS SSeS 9 S353 a Sa 5 5355 Sa Sa SSS Sa SS SS = =F === 

36F6 | ; Subroutine to display message followed by a line feed, CR. 

36F6 | ; Calls DSPMSG routine, with same assumptions as that routine. 

36F6 | ae ea a ee 
36F6 | 

36F6| 6108 DSPMSGR BSR.S DSPMSG ;go display msg 

36F8 | 

36F8 | . IF USERINT = 0 

36F8 | . ELSE 

36F8| 0645 000A ADD #CHRSPC ,D5 ;do "line feed" 

36FC| . ENDC 

36FC | 

36FC| 7CO1 MOVEQ  #1,D6 jand "carriage return" 

36FE| 4E75 RTS 

3700] 

3700] Fe ae oe a Ee ee eee 
3700 | ; Subroutine to display message on screen. 

3700 | ; Requires inputs: 

3700 | H A3 - ptr to ASCII character string ended by 0 byte 

3700 | ; D4 = left margin if message has a CR 
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tex 


3700| - D5 = cursor row position (0 - 32 decimal) 

3700| 7 D6 = cursor column position (1 - 88 decimal) 

3700| ; Uses regs: 

3700 | 7 DO - for character to display 

3700 | ; 

3700| ; NOTE: ONLY UPPER CASE ALPHA, NUMERIC AND CERTAIN SPECIAL CHARS SUPPORTED! 
3700| aaa la a aga a a a at a a tt 
3700| 

3700| 2F00 DSPMSG MOVE.L DO,-(SP) ;save reg 

3702 | 

3702 | IF ROM4K = 0 

3702| 0C45 014C @1 CMPI #LASTROW,D5 ;check if out of bounds 

3706| 6F04 BLE.S @2 ;skip if OK 

3708| 6100 F3FE BSR SCROLL 7;else scroll page 

370C| . ENDC 

370C| 

370C| 4280 @2 CLR.L DO ;clear for use 

370E| 101B MOVE.B (A3)+,D0 ;get a char to display 

3710| 6704 BEQ.S DSPDONE jexit if done 

3712| 6126 BSR.S  DSPVAL ;go do display 

3714| 60EC BRA.S @1 ;continue until done 

3716| 201F DSPDONE MOVE.L (SP)+,D0 ;restore and exit 

3718| 4E75 RTS 

371A| 

371A| . PAGE 

371A| aaa aaa aaa 
371A| ; Subroutine to set cursor position in video page for message display. 
371A| ; Requires inputs: 

371A| ‘ D5 = row position (0 - 32 decimal) 

371A| : D6 = column position (1 - 88 decimal) 

371A| : location SCRNBASE = base address for video page 

371A| ; Provides output: 

371A| 7 A6 = address for new cursor location 

371A| a aaa aaa aaa 
371A| 

371A| SETCRSR 

371A| 2C78 0110 MOVE.L SCRNBASE,A6 ;get base address for screen 
371E | SETCRSR2 

371E| 2F00 MOVE.L DO,-(SP) ;save reg 

3720| 4280 CLR.L DO juse as working reg 

3722 | 

3722 | .IF USERINT = 0 

3722 | . ELSE 

3722| 3005 MOVE D5,D0 ;get pixel row 

3724 | . ENDC 

3724| COFC 005A MULU #RBYTES ,DO ;compute byte offset 

3728 | 
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3728 | 7 .IF USERINT = 0 

3728| 0640 OO5A ADD #RBYTES , DO ;add one more 

372C | F . ELSE 

372C | 7 ADD #TOPOFFSET , DO jadjust for offset from top of screen 
372C | i . ENDC 

372C | 

372C| DO8E ADD.L A6,D0 ;add in base screen address 
372E| 2C40 MOVE.L DO,A6 jand save new value 
3730| 4280 CLR.L DO 

3732 | 

3732 | .IF USERINT = 0 

3732 | . ELSE 

3732| 3006 MOVE D6,D0 ;get pixel col 

3734 | . ENDC 

3734 | 

3734| DDCO ADDA.L DO,A6 jadd to cursor address 
3736| 201F MOVE.L (SP)+,D0 ;restore and exit 

3738| 4E75 RTS 

373A| 

373A| (ee ee ee ee ee 
373A| ; Subroutine to display single ASCII character. 

373A| ; Requires input: 

373A| 7 DO = character to display 

373A| r D4 = left margin if CR char 

373A| : D5 = cursor row position (0 - 32 decimal) 

373A| ; D6 = cursor column position (1 - 88 decimal) 

373A| ; Returns output: 

373A | : D6 = new cursor col position (incremented by 1) 

373A| Peete E SSS SSeS Ss SoS See ere sees sees 
373A | 

373A| 48E7 C022 DSPVAL MOVEM.L A2/A6/D0-D1,- (SP) ;Save regs 

373E| 61DA BSR.S SETCRSR ;set cursor position 
3740| 0240 OO7F ANDI #S7F ,DO ;ensure valid 

3744| .IF USERINT = 1 

3744| 4A00 TST.B DO japple icon? 

3746| 6738 BEQ.S @4 

3748 | . ENDC 

3748 | 

3748 | .IF ROM4K = 0 

3748| OCOO 0020 CMPI.B #$20,D0 ; Space? 

374C| 672C BEQ.S &@3 ;skip if yes 

374E| OCOO OO00D CMPI.B #RET,DO ;carriage return? 

3752| 6732 BEQ.S @5 ;skip if yes 

3754| OCOO 003F CMPI.B #QUESTN,DO 7'?' char? 

3758| 6734 BEQ.S @6 

375A| 

375A| 0400 002D SUB.B #52D,D0 ;else check if in table 


tex 
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375E | 
3760 | 
3764 | 
3766 | 
3768 | 
376C| 
376E | 
3772 | 
3774 | 
3774 | 
3774 | 
3774 | 
3774 | 
3774 | 
3774 | 
3774 | 
3778 | 
377A| 
377A| 
3778 | 
3780 | 
3780 | 
3784 | 
3786 | 
3786 | 
378A | 
378C | 
378E | 
378E | 
3792 | 
3794 | 
3794 | 
3796 | 
3798 | 
379A| 
379C | 
379C | 
37A0 | 
37A0 | 
37A2 | 
37B4 | 
37A6 | 
37AC| 
37B0 | 
37B4 | 
37B4 | 
37B4 | 


6D14 
0c00 
6F2E 
5F00 
0c00 
6D06 
0c00 
6F20 


45FA 
6026 


45FA 
6020 


45FA 
601A 


0645 
3C04 
6026 


45FA 
600C 


3200 
E748 
9041 
9041 


45FB 


4280 
7205 
4216 
DDFC 
6100 
422E 


000C 


000D 


0026 


013A 


003E 


0134 


000A 


011A 


0022 


0000 
FC7E 
0276 


005A 


@1 


@3 


@4 


@5 


@6 


@2 


out 


DSPVXIT 


BLT.S @1 
CMPI.B #5C,D0 
BLE.S @2 


BLT.S @1 
CMPI.B #$26,D0 
BLE.S @2 
ELSE 

.ENDC 


.IF USERINT = 0 


. ELSE 

LEA INVCHAR , A2 
BRA.S OUT 

LEA SPACE ,A2 
BRA.S OUT 

LEA APPLICON ,A2 
BRA.S OUT 

ADD #CHRSPC ,D5 
MOVE D4,D6 
BRA.S DSPVXIT 
LEA QUESTCH , A2 
BRA.S OUT 

MOVE DO,D1 

LSL #3,D0 

SUB D1,D0 

SUB D1,D0 

LEA FONTTBL (DO) ,A2 
clr.1 do 

moveq #5,d1 
MOVE.B #0,RO0(A6) 
ADDA.L #RBYTES ,A6 
bsr output 


MOVE.B #0,R7(A6) 
.ENDC 


tex 


;numeric char? 

;skip if yes 

7else decr for alpha check 
;check if in alpha range 
;skip if invalid 

jlast valid char = 'Z' 


;skip if OK 


;else set for invalid character 


;set ptr to space char 


; display apple icon 


;set cursor for next row 
;set to left margin 


;set ptr to '?' char 


;convert for table (multiply by 6) CHG0O17 
;mult by 8 

; then subtract twice 

; CHGO17 


;get ptr to char in table 


;set number of bytes-1 in x direction 

;set number of pixels-1 in y direction CHG017 
;first line always 0 CHGO17 
;bump ptr to next row CHG017 
;output char 

;and add final 0 byte 
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37B4| 4CDF 4403 MOVEM.L (SP)+,A2/A6/DO-D1 ;restore and exit 
37B8| 4E75 RTS 

37BA| 

37BA | .IF EXTERNAL = 1 

37BA| .ENDC 

37BA | . PAGE 

37BA | proce no---------------------- === === 5-5-5 55 
37BA | ; CHARACTER FONT TABLE 

37BA | proce nao oo --------- +--+ == === 5-5-5 5-55 
37BA| SPACE 

37BA| 00 00 00 00 00 00 . BYTE $00,$00,$00,$00,$00,$00 ; (space) 

37C0| 

37C0| FONTTBL 

37C0| .IF ROM4K = 0 

37C0| 00 00 00 7c 00 00 . BYTE $00,$00,$00,$7C,$00,$00 ; code = 45 '-' 
37C6| 00 00 00 00 00 30 . BYTE $00,$00,$00,$00,$00,$30 ; code = 46 ''. 
37CC| 04 08 10 20 40 80 . BYTE $04,$08,$10,$20,$40,$80 ; code = 47 '/' 
37D2 | .ENDC 

37D2 | 

37D2| 38 44 44 44 44 38 . BYTE $38 ,$44,$44,$44,$44,538 ; code = 48 '0' 
37D8| 08 38 08 08 08 08 . BYTE $08,$38,$08,$08,$08,$08 ; code = 49 '1' 
37DE| 38 44 08 10 20 7C . BYTE $38 ,$44,$08,$10,$20,S7C ; code = 50 '2' 
37E4| 38 44 18 04 44 38 . BYTE $38,$44,$18,$04,$44,$38 ; code = 51 '3' 
37EA| 08 18 28 48 7C 08 . BYTE $08,$18,$28,$48,$7C,$08 ; code = 52 '4' 
37F0| 7C 40 78 04 44 38 . BYTE $7C,$40,$78,$04,$44,538 ; code = 53 '5' 
37F6| 38 40 78 44 44 38 . BYTE $38,$40,$78,$44,$44,$38 ; code = 54 '6' 
3802| 38 44 38 44 44 38 . BYTE $38 ,$44,$38,$44,$44,$38 ; code = 56 '8' 
3808| 38 44 44 3c 04 38 . BYTE $38,$44,$44,$3C,$04,$38 ; code = 57 '9' 
380E | 

380E| 30 48 84 FC 84 84 . BYTE $30,$48,$84,SFC,$84,$84 ; code = 65 'A' 
3814| F8 84 F8 84 84 F8 . BYTE SF8 ,$84,SF8,$84,584,SF8 ; code = 66 'B' 
381A| 78 84 80 80 84 78 . BYTE $78 ,$84,$80,$80,$84,$78 ; code = 67 'C' 
3820| F8 84 84 84 84 F8 . BYTE SF8 ,$84,$84,$84,5$84,S5F8 ; code = 68 'D' 
3826| FC 80 F8 80 80 FC . BYTE SFC,$80,SF8,$80,$80,SFC ; code = 69 'E' 
382C| FC 80 F8 80 80 80 . BYTE SFC,$80,SF8,$80,$80,$80 ; code = 70 'F' 
3832| 78 84 80 9C 84 7C . BYTE $78 ,$84,$80,$9C,$84,$7C ; code = 71 'G' 
3838| 84 84 FC 84 84 84 . BYTE $84,$84,SFC,$84,$84,$84 ; code = 72 'H' 
383E| 38 10 10 10 10 38 . BYTE $38,$10,$10,$10,$10,$38 ; code = 73 'I' 
3844| 1C 08 08 08 88 70 . BYTE $1c,$08,$08,$08,$88,$70 ; code = 74 'J' 
384A| 88 90 AO DO 88 84 . BYTE $88,$90,SA0,$D0,$88,$84 ; code = 75 'K' 
3850| 80 80 80 80 80 FC . BYTE $80,$80,$80,$80,$80,SFC ; code = 76 'L' 
3856| 84 CC B4 84 84 84 . BYTE $84,SCC,$B4,$84,$84,584 ; code = 77 'M' 
385C| 84 C4 A4 94 8C 84 . BYTE $84,$C4,$A4,$94,$8C,$84 ; code = 78 'N' 
3862| 78 84 84 84 84 78 . BYTE $78 ,$84,$84,$84,584,578 ; code = 79 '0O' 
3868| F8 84 84 F8 80 80 . BYTE SF8,$84,$84,SF8,$80,$80 ; code = 80 'P' 
386E| 78 84 84 84 94 78 . BYTE $78 ,$84,$84,$84,$94,$78 ; code = 81 'Q' 
3874| F8 84 84 F8 88 84 . BYTE SF8,$84,$84,S5F8,$88,$84 ; code = 82 'R' 


tex 
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387A| 
3880| 
3886 | 
388C| 
3892 | 
3898 | 
389E | 
38A4 | 
38AA | 
38AA | 
38AA | 
38AA | 
38B0 | 
38B0| 
38B0| 
38B0| 
38B6 | 
38B6 | 
38B6 | 
38B6 | 
38BC| 
38BC | 
38BC | 
38BC | 
38BC| 
38BC| 
38BC | 
38BC | 
38BC | 
38C3 | 
38C4 | 
38CB | 
38CC | 
38D3 | 
38D4 | 
38DB | 
38DC | 
38E3 | 
38E4 | 
38EB | 
38EC| 
38F3 | 
38F4 | 
38FB | 
38FC| 
3903 | 
3904 | 


38 


C7 


08 


84 
10 
84 
44 
82 
28 
44 
08 


44 


BB 


77 


2D 


35 


00 


00 


3D 


30 


30 


4C 


36 


46 


60 
10 
84 
28 
92 
10 
28 
10 


08 


F7 


11 


36 


00 


00 


00 


00 


55 


3B 


37 


47 


10 


EF 


12 


13 


00 


00 


00 


00 


49 


27 


38 


48 


84 
10 
84 
10 
44 
44 
10 
40 


00 


TF 


37 


2E 


00 


00 


50 


2F 


4A 


20 


35 


56 


10 


EF 


3E 


38 


32 


00 


00 


08 


31 


4B 


2c 


52 


43 


39 


33 


00 


00 


00 


00 


5B 


2E 


54 


42 


tex 


. BYTE $78 ,$84,$60,$18,$84,$78 ; code = 83 'S' 
. BYTE SFE,$10,$10,$10,$10,$10 ; code = 84 'T' 
. BYTE $84,$84,$84,$84,$84,$78 ; code = 85 'U' 
. BYTE $44,$44,$28,$28,$10,$10 ; code = 86 'v' 
.BYTE $82,$82,$92,$AA,$44,$44 ; code = 87 'W' 
. BYTE $44,$28,$10,$28,$44,$82 ; code = 88 'X' 
. BYTE $82 ,$44,$28,$10,$10,$10 ; code = 89 'y' 
. BYTE SFC,$08,$10,$20,$40,SFC ; code = 90 'Z' 
.IF ROM4K = 0 
QUESTCH 
. BYTE $38,$44,$08,$10,$00,$10 ; code = 63 '?! 
. ENDC 
INVCHAR 
. BYTE $C7,$BB,$F7,SEF,SFF,SEF ; inverse of ? 
.IF ROM4K = 0 
APPLICON 
. BYTE $08 ,$77,SFE,SFE,S7F,$3E ; apple icon 
. PAGE 
ALIGN 2 


AsciiTable ; RM000 
-BYTE $1B,$2D,$11,$12,$37,$38,$39,$14 ;Pad : Clear - Left Right 789 Up 
-BYTE $34,$35,$36,$13,$2E,$32,$33,$03 7Pad : 456 Down .23 Enter 
-BYTE $00,$00,$00,$00,$00,$00,$00,$00 yunused 
-BYTE $00,$00,$00,$00,$00,$00,$00,$00 yunused 
-BYTE $2D,$3D,$00,$00,$50,$08,$00,$00 ;- = 2*unused P BackSp 2*unused 


-BYTE $0D,$30,$00,$00,$2F,$31,$00,$00 ;Ret Pad:0 2*unused / Pad:1 2*unused 
-BYTE $39,$30,$55,$49,$4A,$4B,$5B,$5D ; 90UIJK[] 

. BYTE $4D ,$4C,$3B,$27,$20,$2C,$2E,$4F ;ML;' Space ,.O 
-BYTE $45,$36,$37,$38,$35,$52,$54,$59 ;E6785RTY 


. BYTE $00 ,$46,$47,$48,$56,$43,$42,S$4E ;Option FGHVCBN 


@ "27 computer Boot ROM 2.48 Listing ¢ 237 of 265 


390B| 4E 

390C| 41 32 33 34 31 51 53 . BYTE $41,$32,$33,$34,$31,$51,$53,$57 ;A23410SW 
3914| 00 5A 58 44 00 00 00 . BYTE $00,$5A,$58,$44,$00,$00,$00,$00 ;Tab ZXD unused Alpha Shift Cmd 
391C| 

391C| . ENDC 

391C| .IF USERINT = 1 

391C| a a aa a al 
391C| ; Icons 

391C| Pe SSS Se Sr a ee re ee ee ae ease SSS Ss 
391C| 

391C| CrsrData jarrow for mouse cursor 
391C| CrsrMask ;same for mask 
391C| 8000 C000 E000 F000 . WORD $8000 ,SC000 ,SE000, $F000 

3924| F800 FCOO FEOO FFOO . WORD SF800,SFC00,$FEO0O ,SFFO0O 

392C| F800 F800 CC0O0O 8C00 . WORD $F800 , SF800 ,$CC00, $8C00 

3934| 0600 0600 0300 0300 . WORD $0600 ,S$0600 , $0300, $0300 

393C| 

393C| EO 60 60 60 FO ONE . BYTE SEO ,$60,$60,$60,SF0 jicon id = 1 
3941| EO 30 60 CO FO TWO . BYTE SEO ,$30,$60,$C0,SF0 jicon id = 2 
3946| EO 30 60 30 EO THREE . BYTE SEO ,$30,$60,$30,SE0 jicon id = 3 
394B | 

394B| FF FF FF 3F 03 FF 00 I0Obrd .BYTE SFF,SFF,SFF,$3F,$03,SFF,$00,SFF 

3952| FF 

3953| FF FF EO 01 FF FF FF .BYTE SFF,SFF,SE0O,$01,SFF,SFF,SFF,SE4 

395A| E4 

395B| FF CO 70 2F F9 50 66 .BYTE $FF,$C0O,$70,$2F,SF9,$50,$66,$9E 

3962| 9E 

3963| CO 01 80 F7 03 79 56 .BYTE $C0,$01,$80,SF7,$03,$79,$56,$06 

396A| 06 

396B| 74 FE OF FF FF FF FF .BYTE $74,$FE,SOF,S$FF,SFF,SFF,S$FF,$FF 

3973| FF FF 3F 01 AA 60 AA .BYTE SFF,SFF,$3F,$01,$AA,$60,$AA,SAF 

397A| AF 

397B| FF CO 03 07 C4 FF EO .BYTE $FF,$C0O,$03,$07,$C4,S$FF,SE0,$55 

3983| 55 50 Fl FF FF F8 FF .BYTE $55,$50,$F1,SFF,SFF,SF8,SFF,SFF 

398A| FF 

398B | 

398B| FF FF FF 3F 03 FF 00 CPUbrd .BYTE SFF,SFF,SFF,$3F,$03,SFF,$00,SFF 

3992| FF 

3993| FF FF EO 01 FF FF FF .BYTE SFF,SFF,SE0O,$01,SFF,SFF,SFF,$C4 

399A| C4 

399B| FF CO 79 F2 40 F9 38 .BYTE S$FF,$CO,$79,SF2,$40,$F9,$38,SE0 

39A2| EO 

39A3| BF EO EF FO 71 38 01 .BYTE $BF,SEO,SEF,$F0O,$71,$38,$01,$80 

39AA| 80 

39AB| 79 FC 03 CO FF FF FF .BYTE $79,SFC,$03,$C0,SFF,SFF,SFF,SFF 

39B2| FF 

39B3| FF FF FF 3F 01 FE CO .BYTE SEF,SFF,$FF,$3F,$01,SFE,$C0,$AA 


tee 
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39BA| 
39BB | 
39C2 | 
39C3 | 
39CE | 
39CE | 
39D5 | 
39D6| 
39DE | 
39E5 | 
3956 | 
39ED | 
39RE | 
39F5 | 
39F6| 
39FE | 
3A06| 
3A0D | 
3A0E | 
3A14| 
3A14 | 
3A1C| 
3A24 | 
3A2C | 
3A34 | 
3A3B | 
3A3C | 
3A3D | 
3A45 | 
3A4D | 
3A54 | 
3A55 | 
3A5C| 
3A5D | 
3R64 | 
3A65 | 
3A6C| 
3A6D | 
3A74 | 
3A75 | 
3A7C | 
3A7D | 
3A84 | 
3A85 | 
3A8C | 
3A8D | 
3A94 | 


05 


88 


co 


08 


FF 


FC 


11 


86 


1F 


Baas 


CF 


i 


6D 


01 


54 


08 


CF 


05 


11 


18 


FO 


MEMbrd 


Xcard 


waiticon 


. BYTE 
. BYTE 
. BYTE 
. BYTE 


. BYTE 
. BYTE 


. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 


. BYTE 


$AA, SBF ,$CO0,$03,$FC,$84,$1F,$E0 
$01,$55,$55,$40,$E1,$03,$FF,$FF 
SEO, SFF , $FF 

SFF, SFF,$FF, SFF,$FF,$FF,$C3,$1F 


SFF, $FF,$C0,$80,$0F, $FF,$FF,$80 
$07, $FF, SEO ,$E3,$03,$FF,$F0,$FF 


SFF, SFF,$71,$04,$5E,$88 ,$02,$1C 
$8E,$50,$03,$8C,$70,$C7,$01,$0C 
$20,$7B,$0E,$04,$0C,$5E,$88,$03 
$FF,$D5,$57,$00,$FF,$80,$07,$FF 
$80, $03, $FF,$CO,$F3,$2A,$A8 , SFC 
$7F , SFC, SFF, $FF, SEF, $FF 
SFF,$FF,SFF,$FF,$FF,$FF,$E1,$01 
SEF, $FF,$80,$FC,SFF,$FF,$FF,$FF 
SFF,SFF,SFF,$FF,$FF,$FF,$FF,$FF 
SEF, $FF, SDF, $03, $63, SEA, SAD, $80 
$01,$3C,$C0,$06,$15,$50,$CF,$3F 
$F8 

SEF, $FF,SFF,$61,$1F,$FF,$FF,$F8 
SOF, $18, SFF,SFF,$F0,S0F,$FF,$FF 
$86,$F0,$11,$FF,$FF,$88,$6D,$05 
$A0 ,$02,$18,$80,$01,$40,$01,$4F 
$F2,$CE,$80,$A8,$15,$F3,$54,$2A 
$3C,$2A,$54,$14,$28,$CF,$08,$10 
SFF,$3C,$08,$10,$14,$28,$CF,$28 
$14,$F3,$50,$0A,$1C,$A0,$05,$01 
$46,$62,$86,$80,$02,$88,$11,$40 
$61,$05,$10,$08,$A0,$11,$18, SEO 


$07,$88,S0F,SFF,SFF,$86,$F0,S0F 


tex 
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3A95 | 
3A9C | 
3A9D | 
3A9F | 
3A9F | 
3AA6 | 
3AA7 | 
3AAE | 
3AAF | 
3AB7 | 
3ABE | 
3ABF | 
3AC6 | 
3ACT | 
3ACE | 
3ACF | 
3AD6 | 
3AD7 | 
3ADA | 
3AE1 | 
3AR2 | 
3AE9 | 
3AEA | 
3AF1 | 
3AF2 | 
3AF9 | 
3AFA | 
3B01 | 
3B02 | 
3B09| 
3B0A| 
3B11| 
3B12 | 
3B19| 
3B1A| 
3B1E | 
3B1E | 
3B25 | 
3B26| 
3B2D | 
3B2E | 
3B35 | 
3B36 | 
3B3D | 
3B3E | 
3B46| 
3B4D | 


Hoda bed Gd PHAR OSaA AH Cada dd ogg aa 


FF 


FF 


FO 


oc 


02 


AO 
07 


El 


11 
FF 


1F 


FC 


20 


08 


FF 


FF 


FF 


FF 
CF 


FF 


FF 


FF 


FF 


08 


02 


20 


08 


80 


EO 


FF 


FF 


FF 


F8 


8B 


3F 
F8 


FF 


03 


F3 


47 


1F 


FF 


04 


proicon 


upper 


driven 


. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 
. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 
. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 
. BYTE 


$FF,$FF,$F0,$E1,$1F,$FF,$FF,$F8 
$FF, $FF 

SFF, $FF,$FF,SFF,$FF,$FF,$FF,$FF 
$FF,$00,$1F, SFF,$FF,$FF,$FF,$F8 


$3F,$FF,$F0,$FF,$FF,$FF,$FC,$FF 
$cc, $03,$7F,$01,$80,$CF,$03,$7F 


$FC,$01,$80,$00,$3F,$FF,$FF,$FF 
SFF,SFC,$1C,$FF,$60,$FF,$F3,$FF 
$38 ,$03,$0C,$FD,$CO,$FF,$FF,$FF 


SFF, SFF, $FF 
SFF, SFF,$FF,SFF,$FF,$FF,$FF ,$FF 


SFF,S2F,$08,$1F,SFF,$08,SFF,SFC 
$10,$1F,SFF,SFF,SFC,$02,$20,$1F 
SFF,SFF,SFC,$47,$F8,$20,$1F,SFF 
SFF,SFC,$80,$1F,SFF,$08,SFF,SFC 
$80,$1F,SFF,SFF,SFC,$80,$47,S$F8 
$1F,SFF,SFF,SFC,$20,SE0,$1F,SFF 
SFF,SFC,$10,$FB,$08,SFF,SFF,SFF 
SFF, $FF, $FF,SFF 

SFF, $FF,$FF,SFF,$FF,$FF,$FF,$FF 
SFF,SEF,$02,$38,$03,$FF,$04,$07 
SFF,$22,$88,$3F,SFF,$F8,$11,SFE 
SE8 ,$7F,SFF,SFC,$20,$8B,$20,$7F 


SEF, $FC,$A0 ,$11,$FE,$3F , $FF,$F8 
$08 ,$E3,$07,$FF,$84,$F8,$03,$FF 


;CHGO24 


;CHGO24 


tex 
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3B4E | 
3B55 | 
3B56| 
3B56| 
3B5D | 
3B5E | 
3B65 | 
3B66| 
3B6D | 
3B6E | 
3B75 | 
3B76| 
3B7D | 
3B7E | 
3B85 | 
3B86| 
3B8D | 
3B8E | 
3B95 | 
3B96| 
3B9E | 
3BA5 | 
3BAD | 
3BB4 | 
3BB5 | 
3BBC | 
3BBD | 
3BC4 | 
3BC5 | 
3BCC | 
3BCD | 
3BD4 | 
3BD5 | 
3BDC | 
3BDD | 
3BE5 | 
3BED | 
3BF5 | 
3BFD | 
3c04 | 
3C05 | 
3C0D | 
3C15 | 
3C1D | 
3024 | 
3C25 | 
3C2B | 


FF 


FF 


OF 


07 


FF 


FF 


38 


insertd 


keybdout 


1C 3C mouseout 


. BYTE 


. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 


. BYTE 
. BYTE 


$02, $FF,$FF,SFF,$FF,$FF,$FF ,$FF 


SFF,$79,$07,$FE,$0F,$C6,$FF,$7F 
SFF, $F0,$71,SFF,$FF,$F8,$0A,$18 
SAA, SAA, $A8 , SFA, SAA, SAA, $F6 , $A0 
$60, $E3,$03,$C0,$07,$38,$04,$20 
$06,$08,$10,$FF,$F3,$08,$10,$3C 
$04,$20,$03,$C0,SFF,SFF,$FF,$FF 
$61,$1F, $FF,SFF,$F8, SOF, $38, $FF 
SFF, $FO,$01,$80,$CF,$02,$40,$F3 
$04,$20,$3C,$08,$10,$10,$08,$CF 
$1C, $38, SFF, SFF, SCF, $03, $C0 

$CF,$01,$C0,$FF,$3F,$0E,$38 ,$CF 
$08 ,$08,$F3,$04,$10,$3C,$02,$20 
$01,$40,$DF,$80,$F3,$01,$C0,$3F 
$01,$40,$20,$1B,$6D,$B6,$DB, $60 
$16,$DB,$08,$6D,$B6,$DF,$3B,$6D 
$B6,$DB, $80 ,$67,$80,$06,$DB,$6D 
$B6 ,$D8,$FF, SOF ,$4F, $FF,$FF,$FF 
$00,$FF,$F0O,$FF,$FF,$FF,$FF,$FF 
$F8 ,$00,$1B,$6D,$B6,$D8 ,$36,$C0 
$1B,$6D,$00,$B6,$D8,$36,$C0,$1B 
$6D,$B6,$D8 ,$00,$36,$C0,$1B,$6D 
$B6,$D8,$36,$C0,$00,$1B,$6D, $B6 
$D8 ,$36,$C0,$1B,$6D,$00,$B6,$D8 
$36,$C0,$1B, SFF, SFF,$D8,$00,$36 
$C0, $1B, $FF, SFF, $D8 ,$36,$C0, $00 
SFF,SFF,SFF,$FF,$FF,$F8 ,$7F ,$FF 


$FO,SFF,SFF,$FF,$F0,$FF 
$FD , SEO , $FF,$F3,$07,$1C,$3C,$04 


tex 
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3C3A | 
3C3B | 
3042 | 
3C43 | 
3C4A | 
3C4B | 
3C52 | 
353 | 
3C5B| 
3C62 | 
3C63 | 
3C65 | 
3C65 | 
3C6C | 
3C6D | 
3074 | 
3C75 | 
3C7D | 
3c84 | 
3c85 | 
3C88 | 
3C8F | 
3C90 | 
3C98 | 
3C9F | 
3CA0 | 
3CAT | 
3CA8 | 
3CAF | 
3CB0 | 
3CB8 | 
3CBF | 
3CC0 | 
3CC8 | 
3CD0 | 
3CD6 | 
3CD6 | 
3CDD | 
3CDE | 
3CES | 
3CE6 | 
3CEE | 
3CF6 | 
3CFE | 
3D05 | 
3D06 | 
3D0E | 


F3 


01 


FF 


Question 


checkmrk 


badmrk 


. BYTE 
. BYTE 


. BYTE 


. BYTE 


. BYTE 
. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 
. BYTE 


. BYTE 
. BYTE 


. BYTE 
. BYTE 


. BYTE 


. BYTE 


. BYTE 
. BYTE 


. BYTE 
. BYTE 
. BYTE 


. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 


. BYTE 
. BYTE 


$04,$02,$08,SCF,$01,$10,$F7,$A0 
$3D,$40,$01,SE0,$FF,$F3,$01,$20 


STE, $3F,$9C, $FF,$80,$FF,$FE, $FF 
SFF,$3C,$7E,$7C,$FF,$FE,$CF,$1F 


SFO ,$F3,S0F,$E0,$3C,$0F,$E0,$1F 
$F0,SFF,SFF,SEF,$FF,$FF,$FF,$CF 


SFF, SFE 
SFF, SFF,$FF,SFF,$FF,$FF,$FF ,$FF 
SCF, $0F , $E0, $F3,$03,$80,$FE,$0C 


$cF,$03,$80,$F7,SE0,$BF,$03, SEF 
$03, SFF, $FE,$03,$FF,$FF,$FF, $FF 


SFE, SFF,SFF 
$CF,$07,$80,$F3,$0E, $80, $BE,$1B 


$36,SEF,$6C,$7B,$D8,$01,$9E,$B0 
$03,$60,$E7,$06,$C0,$79,$0D,$80 


$1B,$DF,$36,$F7,$6C,$3D,$D8,$01 
$B0,$CF,$03,$60,$F3,$06,$C0,$BC 


$0D, $80 ,$1B, SEF ,$36,$FB,$6C,$9E 
$D8 ,$01,$B0 ,$E7,$03,$60,$38,$F8 


$06,$C0,$DC,$0D,$CE,$80,$36,$1B 
$F3,$1B,$36,$3C,$0D,$EC,$06,$D8 
$CF,$03,$30,$F3,$01,$E0 


$3c,$03,$C0,$02,$E0,$CF,$01,$B0 
$F7,$D8,$7D,$6C,$36,$DF,$1B,$E7 
$0D,$80,$79,$06,$C0,$03,$9E, $60 
$01, $B0 , SEF, $D8 ,$FB,$6C, $BE, $36 
$1B,$CF,$0D,$80,$F3,$06,$C0,$3C 
$03,$60,$01,$B0,$DF,$D8 ,$F7,$6C 


$7D ,$36,$1B,$9F,$0D,$80,$E7,$06 
$C0,$79,$03,$60,$01,$BE,$B0, $D8 


tex 
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3D15| 
3D16| 
3D1D | 
3D1E | 
3D25 | 
3D26| 
3D2D | 
3D2E | 
3D36| 
3D3D | 
3D3E | 
3D45| 
3D46| 
3D4D | 
3D4E | 
3D54 | 
3D54 | 
3D5B | 
3D5C| 
3D64 | 
3D6B | 
3D6C| 
3D73| 
3D74 | 
3D7C | 
3D83 | 
3D8B | 
3D8C | 
3D94 | 
3D9B | 
3D9C | 
3DA3 | 
3DA4 | 
3DAB | 
3DAC | 
3DB3 | 
3DB4 | 
3DBB | 
3DBC | 
3DC3 | 
3DC4 | 
3DCB | 
3DCC | 
3DCE | 
3DCE | 
3DCE | 
3DCE | 


FF 


FF 


3E 


00 


OA 


FF 


FF 


OE 


EO 


A8 


EO 


diskette 


lisa 


. BYTE 


. BYTE 


. BYTE 


. BYTE 
. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 
. BYTE 


. BYTE 


. BYTE 
. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 


. BYTE 


. ENDC 


. PAGE 


SEF, $6C, $FB,$36,$3E,$1B,$0E, $80 
SFF, SFF,$FF,SFF,$1F,$03,$FF,$FF 
$86,$F8,$07,$FF,$FF,$F4,SEF,SO0A 


$FB,$05,$BC,$02,$80,$01,$FF,$7D 
$78 ,$84,$CF,$01,$02,$FF,$7C,$01 


$02,$84,$DF,$78,SFF,$FF,SFF,$7F 
$07,$10,SFF,SFF,$FF,$80,$03,SFF 
SFF,SFE,SFF,SFF,S$FF,$FF 

SFF,SOF,$03,SFF,SFF,$FF,$00,SFF 


$CO,$07,$FF,S$FF,$FF,$FF,$E0,$10 
$0C, $FF, $FF,$F0,$30,$01,$FF,$70 


SFF,S$F8,$07,$80,$01,$9E,$FF,$01 


SFF, $CF,$07,$80,$FF,$3F,$07,$80 
$E7, $01, $FF,$09,$01,$FF,$01,$FF 


SFF,SF8,$40,$07,$80,$0C,SFF,SFF 
SFO ,$30,$00,$07,SFF,SFF,SFF,SFF 
$EO ,$03,S$FF,$00,SFF,SFF,S$FF,$CO 
$03,$FF,SFF,SFF,$00,$FF,S$E0,$07 
SFF,SFF,SFF,SFF,S$F0,$61,SAA,SAA 
$AA,$95,SFF,$18,SFF,SFF,S9F,S5F 
SFF,SFD,$86,$1F,$0A,$AA,$A8,$15 
$3F,$07,$FF,$00,SFF,SFF,SFF,SFO 
$03,SFF,SFF,SFF,SFC,SFF,SE0,SFF 


SFF,SFF 


tex 
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3DCE | .LIST 

3DCE | aa a ama aaa ma a a 
3DCE | ; Message Table 

3DCE | pS Ra Pepa ST ee SD CORE TOF POST OE Gee PRT ET Ey PSS ET AT TEER ES Be PPO 
3DCE | 

3DCE | .IF USERINT = 0 

3DCE | . ENDC ; {USERINT} 

3DCE | .IF BURNIN = 1 

3DCE | 


3DCE| 50 4F 57 45 52 20 43 BRNMSG  .ASCII 'POWER CYCLING AT ' 
3DDC| 41 54 20 


3DDF| 00 . BYTE 0 

3DEO| 54 49 4D 45 20 49 53 TIMMSG .ASCII 'TIME IS ' ; RMOOO 
3DE7| 20 

3DE8| 00 . BYTE 0 

3DE9| 44 52 49 56 45 20 54 TWGMSG .ASCII 'DRIVE TEST' 7 RMOOO 
3DF0O| 45 53 54 

3DF3| 00 . BYTE 0 


3DF4| 4C 4F 4F 50 20 43 4F LOOPMSG .ASCII 'LOOP COUNT IS ' 
3DFB| 55 4E 54 20 49 53 20 


3E02| 00 -BYTE 0 
3E03| 50 4D 20 42 55 53 20 PMMSG .-ASCII 'PM BUS ERROR' 
3EOF| 00 -_BYTE 0 


3E10| 46 4C 4F 50 50 59 20 TWGFAIL .ASCII 'FLOPPY TEST FAILED' 
3E1E| 49 4C 45 44 

3E22| 00 . BYTE 0 

3E23| 46 4C 4F 50 50 59 20 TWGRSLT .ASCII 'FLOPPY ERROR COUNT IS ' 
3E31| 4F 55 4E 54 20 49 53 


3E38| 20 

3E39| 00 -_BYTE 0 

3E3A | 

3E3A | . ENDC 

3E3A | 

3E3A | .IF ROM4K = 0 

3E3A | .IF USERINT = 0 

3E3A | . ELSE 

3E3A | 

3E3A| 54 45 53 54 49 4E 47 CHKMSG .ASCII 'TESTING' 

3E41| 00 -_BYTE 0 

3E42| 54 45 53 54 -ASCII 'TEST' ;French translation 
3E46| 00 -_BYTE 0 

3E47| 45 53 20 57 49 52 44 -ASCII 'ES WIRD GETESTET' ;German translation 
3E4E| 20 47 45 54 45 53 54 

3E55| 45 54 

3E57| 00 -_BYTE 0 

3E58| 52 45 53 54 41 52 54 RTRYMSG .ASCII 'RESTART' 

3E5F| 00 -_BYTE 0 
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3E60| 52 45 43 4F 4D 4D 45 .ASCII 'RECOMMENCER' ;French 
3E67| 4E 43 45 52 

3E6B| 00 .BYTE 0 

3E6C| 4E 45 55 20 53 54 41 .ASCII ‘NEU STARTEN' ;German 
3E73| 52 54 45 4E 

3E77| 00 .BYTE 0 

3E78 | 

3E78| 43 4F 4E 54 49 4E 55 CONTMSG .ASCII ‘CONTINUE’ 

3E7F| 45 

3E80| 00 .BYTE 0 

3E81| 43 4F 4E 54 49 4 55 .ASCII 'CONTINUER' ;French 
3E88| 45 52 

3E8A| 00 .BYTE 0 

3E8B| 57 45 49 54 45 52 4D .ASCII 'WEITERMACHEN' ;German 
3E92| 41 43 48 45 4E 

3E97| 00 .BYTE 0 

3E98 | 

3E98| 53 54 41 52 54.55 50 STRIMSG .ASCII ‘STARTUP FROM' 

3EA4| 00 .BYTE 0 

3EA5| 44 45 4D 41 52 52 45 .ASCII 'DEMARRER DE! ;French 
3EAC| 52 20 44 45 

3EBO| 00 .BYTE 0 

3EB1| 53 54 41 52 54 45 4E .ASCII 'STARTEN VON' ;German 
3EB8| 20 56 4F 4E 

3EBD | . BYTE 0 

3EBD| 2E 2E 2E PERIODS .ASCII '... 

3ECO| 00 .BYTE 0 

3EC1 | 

3EC1| 4F 50 54 49 4F 4— 53 MENUHDG .ASCII 'OPTIONS' 

3EC8| 00 .BYTE 0 

3EC9 | 


3EC9| 44 49 53 50 4C 41 59 DISPMSG .ASCII 'DISPLAY MEM _ 1' 
3EDO0| 20 4D 45 4D 20 20 20 


3ED7| 31 
3ED8| 00 .BYTE 0 

3ED9| 53 45 54 20 4D 45 4D SETMSG .ASCII 'SET MEMORY 2' 
3EE7| 32 

3EE8| 00 .BYTE 0 


3EE9| 43 41 4C 4C 20 50 52 CALLMSG .ASCII 'CALL PROGRAM 3' 
3EFO| 4F 47 52 41 4D 20 20 


3EF7| 33 
3EF8| 00 . BYTE 0 
3EF9 | .IF ROM16K = 1 


3EF9| 4C 4F 4F 50 20 4F 4E LPMSG -ASCII ‘LOOP ON TEST 4' 
3F00| 20 54 45 53 54 20 20 

3F07| 34 

3F08| 00 -BYTE 0 
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3F09| 
3F09| 
3F09| 
3F10| 
3F17| 
3F18 | 
3F19| 
3F19| 
3F19| 
3F20| 
3F27 | 
3F28 | 
3F29| 
3F29| 
3F29| 
3F30| 
3F37 | 
3F38 | 
3F39| 
3F39| 
3F3C| 
3F3C| 
3F3C| 
3F3D| 
3F3D | 
3F3D | 
3F3E| 
3F3E| 
3F3E| 
3F3F | 
3F3F | 
3F3F | 
3F40| 
3F40| 
3F40| 
3F40| 
3F40| 
3F40| 
3F47 | 
3F48 | 
3F4F | 
3F50| 
3F57 | 
3F59| 
3F5A| 
3F61| 
3F64| 


41 
56 
35 
00 


50 
59 
36 
00 


51 
20 
37 
00 


F4 


F3 


E4 


E1 


E2 


31 
OD 
32 
OD 
33 
45 
OD 
34 
49 
OD 


44 
49 


4F 
43 


55 
20 


Fl 


20 


20 


20 
4F 


20 
54 


4A 
44 


57 
4c 


49 
20 


F2 


2D 


2D 


2D 


2D 
59 


55 53 54 20 VIDMSG 
45 4F 20 20 


45 52 20 43 CYCLMSG 
45 20 20 20 


54 20 20 20 QUITMSG 
20 20 20 20 


MENUID 


20 52 4F 4D TSTMENU 
20 4D 4D 55 


20 56 49 44 


20 50 41 52 


. ENDC 


-ASCII ‘ADJUST VIDEO 5' 


. BYTE 0 


.IF BURNIN = 1 
-ASCII 'POWER CYCLE 6' 


. BYTE 0 

. ENDC 

-ASCII 'QUIT 7! 
. BYTE 0 


. BYTE KEY1 , KEY2 , KEY3 


.IF ROM16K = 1 


. BYTE KEY4 
. ENDC 
. BYTE KEY5 


.IF BURNIN = 1 


. BYTE KEY6 
. ENDC 
. BYTE KEY7 
. ENDC 


.IF ROM16K = 1 

.IF FULLSCC = 0 

. ENDC 

-ASCII '1 - ROM' 

. BYTE RET 

-ASCII '2 - MMU' 

. BYTE RET 

-ASCII '3 - VIDEO' 


. BYTE RET 
-ASCII '4 - PARITY' 


. BYTE RET 


;mMenu id table 


7RMOOO 


7RMOOO 


tex 
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3F65 | 
3F6C | 
3F71 | 
3F72 | 
3F79| 
3F7E | 
3F7F | 
3F86| 
3F87 | 
3F88 | 
3F8F | 
3F90 | 
3F97 | 
3F98 | 
3F99 | 
3FA0 | 
3FA2 | 
3FA3 | 
3FAA | 
3FAD | 
3FAE | 
3FB5 | 
3FBA | 
3FBB | 
3FBB | 
3FBB | 
3FBB | 
3FBB | 
3FC2 | 
3FC4 | 
3FC5 | 
3FCB | 
3FCC | 
3FD3 | 
3FD4 | 
3FDA| 
3FDB | 
3FDB | 
3FDB | 
3FE1 | 
3FE2 | 
3FE2 | 
3FE2 | 
3FE2 | 
3FE2 | 
3FE2 | 
3FE2 | 


20 
20 


20 
20 


20 


20 


20 


20 


4B 


20 
52 


20 
4C 


44 
3F 


41 


4F 


45 


48 


2D 
56 


2D 
56 


2D 


2D 


2D 


2D 


2D 


59 


2D 
4F 


44 


54 


55 


53 


41 


20 
49 


20 
49 
20 


20 


20 


20 


20 


20 
54 


52 


41 


4E 


54 


54 


50 
41 


4B 
41 
43 


53 


44 


43 


4D 


49 
53 


45 


20 


54 


20 


20 


41 


59 


4F 


43 


49 


4c 


45 


4F 


53 


3F 


20 


3F 


3F 


52 


42 


50 


43 


53 


4F 


4D 


20 


53 


3F 


ADDRMSG 


DATAMSG 


CNTMSG 


TSTMSG 


WHATMSG 


-ASCII '5 - PARA VIA' 7RMO00 
. BYTE RET 
-ASCII '6 - KYBD VIA' 7RMO00 
. BYTE RET 


-ASCII '7 - COPS' 


. BYTE RET 
-ASCII '8 - SCC' 
. BYTE RET 


-ASCII '9 - DISK' 


. BYTE RET 
-ASCII 'A - CLOCK' 


. BYTE RET 
-ASCII 'B - MEMORY' 


-BYTE RET 
-ASCII 'C - IO SLOTS' 


. BYTE 0 
. ENDC 


.IF USERINT = 0 
. ELSE 
-ASCII 'ADDRESS ?' 


._BYTE 0 

.ASCII 'DATA ?! 
._BYTE 0 

-ASCII 'COUNT ?' 
.BYTE 0 

.ASCII 'TEST ?! 
._BYTE 0 

.ENDC 

.ASCII ‘WHAT ?! 
.BYTE 0 

.ENDC ; {ROM4K} 
.ENDCROM4K = 1 
.IF ROM8K = 1 
.ENDC 
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@ "27 computer Boot ROM 2.48 Listing * 247 of 265 


3FE2| 00 00 00 00 00 00 00 


3FFB| 45 


3FFC| 02 
3FFD| 48 


3FFE| 0000 


AB - Absolute 


RF - Ref 


A5 - A5 Global 


A6SAV 
ACHK2 
ACTDATA 
ADR128K 
ADREXCP 
ADRREGS 
ADRVCTR 
ALBOXCOL 
ALPHKEY 
ALRTHIGH 
ALRTWIDT 
ALTCOL 
APPLICON 
B96DATA 
BADHDR 
BADSM 
BASE 
BEGIN 
BERR 
BLACK 
BLKL 
BLKSIZE AB 
BMENUSPC AB 


Be Es Gs Gs Gs bo bo Ge bs be be bm be be be tb bb & be 


-IF ROM16K = 1 


. ORG 


$3FF4 ; CHGO05 


pede COPYRIGHT NOTICE 200g II II IIR 
3FF4| 43 38 34 41 50 50 4C HDGMSG 


. ASCII 


"C84APPLE' ; CHGO05 


fRRKRKRKRK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RRR RKKKKK KKK KKKKKK 


VRSN . BYTE $02 ;version 2 CHGO0O1 
REV -ASCII 'H' ; rev H CHGO0O1 
. ENDC 
LAST . WORD $0000 ;checksum word for ROM test 
. END 
eS eS a es Ss sa SaaS SSeS -S=45S5 SYMBOLTABLE DUMP 
LB - Label UD - Undefined MC - Macro 
DF - Def PR - Proc FC - Func 
32 - 32-bit Global 
000001F8| AAPL AB 00000000| ACHK1 LB 00000286 
0000029C| ACR1 AB 00000016| ACTADDR AB 00000270 
00000274| ACTL AB 00000002| ADDRMSG LB 00003FBB 
00020000| ADRCHK LB OOOOOEF6| ADRCLR' LB OOOO0F00 
00000006| ADRLTCH AB 000001AA| ADRMSK - AB 00000003 
000001E0| ADRTST LB OOOQOOEE6| ADRVCT LB 0000000C 
0000000C| AERR LB 0000074E| AKEY AB 000000F0 
00000006| ALBOXROW AB 00000031| ALPHA LB 000016A8 
OOOOOOFD| ALRMSAV AB OOFCC1B1| ALRTCOL AB 00000010 
000000A4| ALRTROW AB 00000073| ALRTSTRT AB 00001140 
0000004E| ALTBMSK AB 70000000| ALTBOOT AB 0000001iC 
00000014| ALTKYADD AB 00000445| APPLENET AB 00008001 
000038B6| APPLQUAL AB OOOO9FFF| ASCIITAB LB 000038BC 
00001038| B96LTH AB 00000010| BADBRD' LB 000021A2 
00000054| BADMRK ' LB 00003CD6| BADRSP AB 00000052 
0000005C| BADST AB 0000005D| BADTHDR AB 00000026 
00000000| BASICTST LB OOOOOE6A| BEEP LB 00000AE8 
OOO000F6| BEGIN2 LB 00000152| BEGIN3 LB 0000018A 
00000742| BFAIL2 LB O0001F3E| BKEY AB O00000EE 
000035FC| BLACKEN LB 00003106] BLKH AB 00000001 
00000003| BLKM AB 00000002| BLKNUM- AB 00000536 
00000200| BMENU AB 00000001| BMENULEN AB 00000022 
OOOOOBF4| BMENUWID AB 00000012| BOOTCHK LB 000016E6 
000001B4| BOOTDVCE AB 000001B3| BOOTFAIL LB 00001F3A 


BOOTDATA AB 


tex 
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BOOTMEM 
BOOTPAT 
BRNMSG 
BSR4 
BSRS4 
BSYTIME 
BIMENU 
BTN3MSG 
BTNHIGH 
BTNSPC 
BUSEXCP 
BUIN 
BYTESPER 
CALLMSG 
CHARROWS, 
CHECKSUM 
CHKCMD 
CHKCPU 
CHKFIN 
CHKID 
CHKIT 
CHKMADR 
CHKMSG 
CHKPM 
CHKPXIT 
CHKS2 
CHKSXIT 
CHKXCRD 
CHRWIDTH 
CKXIT 
CLK 
CLKSAVE 
CLOCKBYT 
CLRFDIR 
CLRMENU 
CLRSCRN 
CMDBUFR 
CMDERR 
CMDTIME 
CNTINC 
CODECOL 
COL2MID 
COMPARE 
CONFIG2 
CONSET 
CONTCHK 
CONTXT 


DD DR DD bb A BB 


00000188 | 
OOOOAAAA | 
00003DCE| 
Sera | 


00000500| 
0000001D| 
00003Dc8 | 
0000001¢c| 
000010E0 | 
00000005 | 
00000003 | 
00000007 | 
00003EE9 | 
0000001B| 
00000cBz2 | 
00000005 | 
000035B6| 
00001E3E | 
00001380 | 
00002c52 | 
0000153c| 
00003E3A| 
00001836 | 
00002E9C | 
000019EE | 
00001894 | 
000035CE | 
00000001 
000018AE | 
0000000E| 
OOFCC1A1 | 
00000480 
00001E72| 
00003114 | 
000026F0 | 
00000304 | 
0000245E| 
00120000| 
0000238A| 
00000012| 
000039BC| 
00003150 
000012F6 | 
000007FA| 
0000265E| 
00000538 | 


BOOTMENU LB 000018F8| 
BOTSIDE AB 00000001| 
BS AB 00000008 
BSR6 MC -------- | 
BSRS6 MC -------- l 
BTENTRY AB 00020002| 
BIN AB 00000006| 
BIN3STRT AB 00003A36| 
BTNMSPC AB 00000392| 
BTNWIDTH AB 0000000A| 
BUSVCT LB 00000008| 
BUIN1 AB 00000001} 
CALL3 LB OOQOOE6C| 
CALLRTN LB 00002908 
CHECK LB 000035FE| 
CHKBASE LB 0000025E| 
CHKCNT AB 000000BA| 
CHKDRIVE LB 00001D5C| 
CHKHI LB 000004E2| 
CHKINPUT LB 00002EA2 | 
CHKIT2 LB 00002CBE| 
CHKMBRD LB 000035BE| 
CHKPAS2 LB 00002244| 
CHKPOSN LB 00002E46| 
CHKROW AB 0000004B| 
CHKS3 LB 00001A00| 
CHKTIM LB 0000229A| 
CHRHIGH AB 00000008] 
CKEY AB 000000ED| 
CLAMP AB _ 00000009] 
CLKDATA AB 000001BA| 
CLKTST LB 0000128C| 
CLRDBOX LB 00002C28| 
CLRINT LB 00001C24| 
CLRPM —-LB 00002250] 
CLRSTAT AB 00000085| 
CMDCHK LB 00001E04| 
CMDFLG AB 00000003] 
CMDUP AB _0000007F| 
CNIMSG LB 00003FCC| 
CODEROW AB 00000097] 
COL2STRT AB 00001B7E| 
CONCHK LB 00000410] 
CONOFF LB 00000800] 
CONSET2 LB 00000802] 
CONTMSG LB 00003E78| 
CONVERT LB 00002BF4| 


BOOTMSK 
BOUNDS 
BSR2 
BSRS2 
BSY 
BTERR 
BTN1MSG 
BTNCOL 
BTNROW 
BURNIN 
BUSVCTR 
BUTN2 
CALLBASE 
CFGEXIT 
CHECKMRK 
CHKBSY 
CHKCNT2 
CHKFDIR 
CHKICONS 
CHKIOBRD 


ul 
DEED DD Bb SS 


CHKVCT 
CHRSPC 
CKLOOP 
CLICK 
CLKERR 
CLMPERR 
CLRDESK 
CLRIT 
CLRRST 
CMD 
CMDDWN 
CMDKEY 
CNERM 
COARSE 
COL1STRT 
COL3STRT 
CONFIG 
CONOK 
CONT 
CONTMSK 
CONVRTD5 


OO8FFFFF 
00002F7C 


00000001 
00001D2A 
00001Cc08 
00000034 
00000045 
00000001 
00000008 
00000005 
00000480 
00001370 
00003C88 
00001F82 
000000C4 
00001E96 
00001B68 
000035C6 
0000045E 
00000508 
0000223A 
00001A36 
00000284 
00001B44 
00000018 
0000000A 
00001890 
OOO000AEE 
000012E2 
00000016 
000030DA 
00002B7A 
00000AC4 
00000002 
OOOOOOFF 
OOOOOOFF 
0000000E 
00002F6C 
00001B72 
00001B8A 
000012EE 
0000043E 
00003132 
OO1E3FFA 
000036EE 
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COPSO 
COPS4 
COPSCMD 
COPY6 
CPSINIT 
CPUMSK 
CRSRBUSY 
CRSRHIDD 
CRSRMASK 
CRSRVISI 
CRTCOL 
CSTRB 
CURSORIN 
CYCLVAL 
DATAMSG 
DBOXDSPL 
DBOXROW 
DBOXWIDT 
DDRB1 
DEFCOL 
DEFVID 
DELAY5 
DESKLMT 
DG20N 
DISABLE 
DISKCOL 
DISKROM 
DIVOVCT 
DLYCNST 
DOCRES 
DONE 
DOSUM 
DRAWSIDE 
DRV 
DRVCOL 
DRVTYPE 
DSABLDSK 
DSCONT 
DSK2IN 
DSKBUFF 
DSKCNTL 
DSKDIS 
DSKERR3 
DSKRSLT 
DSKTMOUT 
DSKXIT 
DSPALRTM 


Es Es be be Es Gs be be bo Gs Go bs be bo Go bs bs Gs bm bo be be Sb be bs be te be te be bo Be be bs tb be me b&b & bb 


00002D38 | 
00002D9E | 
00000956| 
00002092 | 
00000920 
0000000F| 
0000049B| 
0000049E| 
0000391C| 
0000049c| 
00000302 | 
OOFCDO1C| 
00002FcC| 
OOFCC1C3 | 
00003FC5 | 
00002c0a| 
00000018 | 
00000042 | 
00000004 | 
0000003E| 
0000002F| 
00000aD4 | 
00007FF8 | 
OOFCE006 | 
aoe | 
00000004 | 
00FCCO31 | 
00000014 | 
00000009] 
00002146| 
0000360A| 
0000019E| 
00003342 | 
00000004 | 
00000003 | 
OOFCCO15 | 
00001D46| 
000023FC| 
00000004 | 
000003E8 | 
OOFCC19F| 
00001¢c0 | 
00001D14 | 
000002aE | 
001¢8000| 
00001180 | 
000036DA| 


COPS1 LB 00002D48| 
COPSBAD LB 0000090A| 
COPSENBL LB 000008EA| 
COPY6LP LB 000020A0| 
CPUBRD LB 0000398B| 
CPUSEL AB 00000001| 
CRSRDATA LB 0000391C| 
CRSRHOTX AB 00000490] 
CRSROBSC AB 000004A0| 
CRSRX AB _00000496| 
CRTROW AB 00000300] 
CURSORDI LB 0000300E| 
CYCLCNT AB OOFCC1C1| 
D7SAV  _—AB_000001AC| 
DATARGS AB 000001C0| 
DBOXHIGH AB 00000014| 
DBOXSTRT AB 0000071E| 
DDRAl AB 00000006| 
DDRB2 AB 00000010} 
DEFROW AB 000000A4| 
DEFVID2 AB 000000AF| 
DELAY 1 LB OOOOOACC| 
DESKPATR AB AAAA5555| 
DIAGS AB 00000001} 
DISINT LB 00002364| 
DISKETTE LB 00003D1E| 
DISKROW AB 00000012| 
DLCNT AB FFFFFFEC | 
DLYTIME AB 00100000| 
DODSPLY LB 000035AE| 
DOREAD 1B 00001C2C| 
DRAWBUTN LB 000032F8| 
DRIVE AB 00000535} 
DRV1 AB 00000000 | 
DRVERR AB 00000007] 
DRWHORZ LB 00002A26| 
DSABLINT AB 00000087 | 
DSCRACH AB FFFFFF18| 
DSKBAD LB 00001CAA| 
DSKCHK LB 00001C9A| 
DSKDATA AB 00000400| 
DSKERR LB 00001CC4| 
DSKIN AB 00000002| 
DSKSIZE AB 000006A6| 
DSKTST LB 0000110C| 
DSPALL LB 00003686 
DSPBAD LB 000034EC| 


COPS2 
COPSCHK 
COPSVCT 
CPIOMSK 
CPUINTR 
CPUSTRT 
CRSRHEIG 
CRSRHOTY 
CRSRTRAC 
CRSRY 
CSBIT 
CURSORHI 
CYCLMSG 
DATABFR 
DBOXCOL 
DBOXLEFT 
DBOXTOP 
DDRA2 
DEBUG 
DEFSTRT 
DELAY 
DESKLINE 
DG20FF 
DIE 
DISK 
DISKMEM 
DISPMSG 
DLOOP 
DOBOOT 
DOMENU 
DORESET 
DRAWDESK 
DRIVEN 
DRV2 
DRVROW 
DRWVERT 
DSAVARRY 
DSK1IN 
DSKBSY 
DSKCNTH 
DSKDIAG 
DSKERR2 
DSKOUT 
DSKTIMER 
DSKVCT 
DSPALRTI 
DSPCH 


Es GS Gs Go Go Gs bs be be Be be bs Be be bs Be be Gs Ge be Go be bm be be bm bo be be be be bb be be be be be & bb bm b&b & be bs 


00002D5C 
000011C0 
00000916 
OO1LFFFFF 
00000004 
00001DF6 
00000494 
00000492 
0000049A 
00000498 
00000005 
00002FEA 
00003F19 
00020000 
00000018 
00000014 
00000168 
00000018 
00000000 
000039E6 
00000AE2 
OOO005FA 
OOFCE004 
00000089 
00000011 
OOFCCOO1 
00003EC9 
000035EC 
000016E2 
000025EC 
00002652 
000030D6 
00003B1E 
00000080 
00000006 
00002A40 
FFFFFFF8 
00000000 
00000051 
OOFCC19D 
00000006 
00001D0E 
00001CBC 
00001c98 
00001186 
0000352C 
000016B0 


tex 
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DSPCHECK 
DSPCPU 
DSPDEC 
DSPERRIC 
DSPICON 
DSPMBRD 
DSPMENUB 
DSPMSGR 
DSPNUMIC 
DSPRGICO 
DSPVAL 
DSPXCRD 
DVCECHK 
EBUSEXCP 
ECPUINTR 
EILLEXCP 
EIOEXCP 
EJCTTIME 
EMISEXCP 
ENBLDRVS 
ENQKBD 
ERRCOL 
ERRROW 
ERS232B 
EVIA2 
EXCFC 
EXCLUSIV 
EXCPC 
EXCTYPE 
EXMSK 
EXTERNAL 
FDIRTIME 
FINDERR 
FINKBD 
FIRSTROW 
FMTTIME 
FULLSCC 
GET2 
GETBITS1 
GETCH 
GETERR 
GETIT 
GETLIXIT 
GETNIBBL 
GETPARM 
GETSTAT 
GOTOMON 


Es GS Gs Go Go Gs be Go Gs bs be be be be bs Be Be be be be bo be be be be be bo bs be be be be be be bs be bo bs be bo be bm be bo be bs 


000035D4 | 
00003588 | 
00001630 | 
000034DA| 
000035E2 | 
00003592 | 
000027D0 | 
000036F6| 
00003450| 
00003424 | 
0000373A| 
000035A6 | 
00001754 | 
0000002D | 
0000002c| 
00000030 
0000003a| 
00180000] 
0000002F| 
00002E2A| 
00002886 | 
00000010 
00000073 | 
00000038 | 
00000033 | 
00000280 | 
0000314E| 
0000028a| 
0000028E| 
000003F0 | 
00000000 | 
00c00000| 
00002056 | 
00000001 | 
0000003E| 
01800000| 
00000001 | 
00002cBA | 
00000c1C| 
00002896 | 
00002656 | 
00000aAa2 | 
000026D~A| 
00000D34 | 
00002BB2 | 
00002060| 
000015cc| 


DSPCLK LB 000024CA| 
DSPCPURM LB 000008DC| 
DSPDONE LB 00003716| 
DSPFRNCH LB 000036AA| 
DSPIOB LB 0000359C| 
DSPMEM LB 00002836| 
DSPMNTRY LB 00001A94| 
DSPMSLSH LB 000036D2| 
DSPOUT LB 000036B0| 
DSPSTRIN LB 00003634 | 
DSPVXIT LB 000037B4| 
DSTACK AB FFFFFF18 | 
EADREXCP AB 0000002E| 
ECLK AB 00000036 | 
ECPUSEL AB 00000029] 
EIOCOP AB 00000034| 
EIOKBD AB 0000003C| 
EKBDCOP AB 00000035| 
EMMU AB 00000028 | 
ENBLINT AB 00000086| 
ENTRKEY AB 000Q000AF| 
ERRDISP LB 000014EA| 
ERRSTRT AB 0000287E| 
ETRPEXCP AB 00000031 
EVID AB 0000002A| 
EXCHK LB 0000140E| 
EXCPO LB 00000758 | 
EXCPERR LB 00000030] 
EXIT LB 00000CF8 | 
EXPAND LB 000018B0| 
FASTMR AB 00000006| 
FILEID AB 00000004| 
FINDSYNC LB 00000D0A| 
FINLISA AB 00000000| 
FIVESEC AB 001312D0| 
FNDXIT LB 000020F6| 
GETO LB 000009F0| 
GET3 LB 00002D0C| 
GETBITS2 LB 00000C50| 
GETDATA LB OOOOOA7E| 
GETEXIT LB 00002BE8| 
GETJMP LB 00000A38| 
GETLENGT LB 00003418 
GETNTRY LB 00002E5A| 
GETROWCO LB 00003406 
GETXIT2 LB 00002BF2| 
GRAY LB 000030EE| 


DSPCODE 
DSPCXIT 
DSPERR 
DSPGERMN 
DSPIT 
DSPMENU 
DSPMSG 
DSPNUM 
DSPQICON 
DSPTIM 
DSPWIICO 
DVCCODE 
EBOOT 
ECPAR 
EDISK 
EIOCOP2 
EJCTDSK 
EMEM 
ENABLE 
ENDPM 
EPAR 
ERRMSK 


FDIR 
FINDD2 
FINE 
FIRSTCOL 
FMT 
FONTTBL 
GET1 
GETA 
GETBYTES 
GETDIG 
GETINPUT 
GETL1 
GETLEV2 
GETPADDR 
GETRSP 
GLOBALS 
GRAY1 


DPD DDD DDD SP bb be 


00001622 
00001668 
0000244E 
000036A6 
000036B8 
00002744 
00003700 
00003464 
00003556 
00002398 
00001EA6 
OOFCC189 
0000004B 
0000002B 
00000039 
0000003B 
00001E56 
00000046 
OOFCCLFF 
00000047 
OE7FFFFF 
00000037 
00000032 
00000282 
00000286 
00000764 
00000288 
00000006 
00000081 
00000004 
000020BC 
00002F56 
00000018 
00000003 
000037C0 
00002C4E 
00002BA4 
00000C82 
00001634 
00002C46 
0000262A 
0000274C 
OO000FFO 
000020CE 
00000480 
000030F4 


tex 
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HALFMEG 
HDERR2 
HDRBUFR 
HDSKERR 
HEX32K 
HEX96K 
HOURSAV 
ICONADDR 
ICONCSPC 
ICONMSPC 
ICONWIDT 
IFR1 
ILLVCTR 
INIT1 
INITB2 
INITBLTH 
INITMON 
INSRTCOL 
INTERR 
INV 
INVERSE 
INVICON 
INVPAG 
INVTST 
IOLID 
IOLSTAT 
IO02PORT1 
IO3ERR 
IO3PORT2 
IOCERR 
IOCOPS2 
IOLMT 
IOROM 
I0s3 
IOSMSK 
IOTST 
IRB2 
KBDCHK 
KBDDLY 
KBDQ 
KEY1 
KEY4 
KEY7 
KEYBDOUT 
KEYTBL 
L10VCT 
L11VCTR 


Be Es Gs Gs be bo bs be bo Gs bo bs bo bs be bo bs Gs be be be be te be bo Gs Go be Go be bs bo Gs bo be be te bm be be be be & be bm bo 


00080000| 
00001F5E| 
0001FFEC| 
00001F10 | 
00008000 
00018000 
00FCC193 | 
00000532 | 
00001680 | 
00000440| 
00000006 | 
0000001A| 
00000010] 
00002544 | 
000010cE | 
00000004 | 
00002534 | 
00000004 | 
00001174 | 
0000005B| 
0000312E| 
00003574 | 
00000c00| 
00000822 | 
00000298 | 
0000029E| 
00000006| 
0000001B| 
0000000aA| 
00000A66| 
00000013 | 
00000900 
00000221 | 
00000041 
0£000000| 
00001000 | 
00000000] 
000014F8 | 
00067C28 | 
00000280 | 
000000F4 | 
000000F3 | 
000000E2 | 
00003BA5 | 
0000127A| 
00000028 | 
0000002c| 


HALFSEC 
HDERR3 
HDRLEN 
HEX128K 
HEX512K 
HIPTCH 
ICBIT 
ICONCHK 
ICONHIGH 
ICONPTR 
IER1 
ILLEXCP 
INCSR 
INIT2 
INITB2L 
INITFLG 
INITVCT 
INSRTROW 
INTLV 
INVALID 
INVERT 
INVID 
INVPARM 
INVXIT 
IO1PORT1 
I02ERR 
I02PORT2 
I03ID 
IO3STAT 
IOCHK 
IOEXCP 
IOLMT2 
IOS1 
IOSBOOT 
IOSPACE 
IOvCcT 
JMPTBL 
KBDCOPS 
KBDEND 
KBDQPTR 
KEY2 
KEY5 
KEY8 
KEYID 
KEYTOASC 
L10VCTR 
LAST 


Ea ba Go Be Go Bs be Bs bo be bs Go be Go be bo be Go bs bo be to be bs Go Gs Go be be be Go be te bo be be be be be bo be bo bm be & bb 


0001E848 | 
00001F66| 
0000000c| 
00020000| 
00080000 
000016c8 | 
0000000D| 
00001986 | 
00000020 | 
00020004 | 
0000001¢c| 
00000008 | 
00000004 | 
0000255c| 
00000002 | 
00FCC191 | 
000006a6 | 
00000005 | 
00000012 | 
00002A74 | 
00002Ecz | 
0000219E| 
00002BEE| 
00002a86| 
00000003 | 
0000001A| 
00000007 | 
0000029¢| 
000002a0 | 
0000145E| 
00000012 | 
00000901 | 
00000034 | 
0000215E| 
00FC0000| 
00000918 | 
00000080 | 
0000000D| 
00000300| 
00000260 | 
000000F1 | 
000000E4 | 
000000E3 | 
00000182 | 
0000271A| 
00000028 | 
00003FFE| 


HALFSIZE 
HDGMSG 
HDRSIZE 
HEX2K 
HEX8K 
HOUR 
ICERR 
ICONCNT 
ICONMENU 
ICONRSPC 
IERR 
ILLVCT 
INDATA 
INIT3 
INITBDAT 
INITMEM 
INSERTD 
INSRTTIM 
INTSTAT 
INVCHAR 
INVERTCK 
INVIDBIT 
INVSUM 
IO1LERR 
IO1PORT2 
I02ID 
IO2STAT 
IO3PORT1 
IOBRD 
IOCOPS 
IOKBD 
IOMSK 
I0S2 
IOSCHK 
IOSTRT 
IRA2 
KBDBFR 
KBDDELAY 
KBDOUT 
KCERR 
KEY3 
KEY6 
KEY9 
KEYSCAN 
KUNPLG 
L11VvCcT 
LASTBLK 


Be Es bs Es fe Go be be bo Go bo be bo Es be te be to bs be be be be be Gs be be Es be te be bo be bo be be be om bo bb tb bb bb 


00000070 
00003FF4 
00000014 
00000800 
00002000 
000001BC 
000000FE 
00000534 
OOOO1AAA 
0000000C 
000006F8 
00000010 
00000000 
00002570 
000010CA 
0000066C 
00003B56 
00c00000 
0000005E 
000038B0 
00000000 
00000006 
0000222A 
00000019 
00000004 
0000029A 
0000029F 
00000009 
0000394B 
0000000C 
00000014 
001FDCO00 
00000037 
00001590 
00001E12 
00000008 
000002Cc0 
00000ADC 
00000017 
OOOOOOFF 
000000F2 
000000E1 
000000D0 
000011EA 
000000FD 
0000002C 
000006A6 


tex 
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LASTCOL 
LCNTLO 
LEVEL1 
LISAROM 
LOADPGM 
LOOPO 
LOOPMSG 
LOPTCH 
LPTEST 
LVL2VCT 
LVL5VCT 
LWRRIGHT 
MAKEBOX 
MAKEMENU 
MAKETEST 
MAXADR 


MENUEND 
MENULEN 
MENUSPC 
MERRCHK 
MIDTSTRO 
MINSAV 
MISEXCP 
MMU 
MMU126B 
MMU127L 
MMUEADRL 
MMUERR3 
MMULPCHK 
MMUSADRB 
MMUTST 
MON 
MOUSDX 
MOUSEMOV 
MOUSINIT 
MOUSTHRE 
MOUSY 
MRGICON 
MSGCOL 


ee ee a ee enn 


00000058 | 
00FCC197 | 
000025a4 | 


000021EA| 
00003432 | 
00003DF4 | 
000016cC| 
00001054 | 
00000068 | 
00000074 | 
0000052c| 
00003156 | 
0000336A| 
00003180 | 
00200000| 
000002D0 | 
OOFCF000 | 
00001514 | 
00001582 | 
00600000] 
00000446| 
00000620 | 
00000007 | 
000020B4 | 
0000000B| 
000003DE | 
00001572 | 
0000005B| 
OOFCC19B | 
00000007 | 
00000000 | 
00FC8008 | 
00FE8000| 
00FE8000| 
000003FA| 
00000408 | 
00008008 | 
00000180 | 
00000010 
0000048a| 
00002F2A | 
00002FBz2 | 
0000048E| 
00000488 | 
000034FA| 
00000018 | 


LASTROW 
LEV1LOOP 
LEVEL2 
LOADLMT 
LOMEM 
LOOP1 
LOOPTBL 
LOTONE 
LSTCHK 
LVL3VCT 
LVL6VCT 
MADRERR 
MAKEBUTN 
MAKEPCAL 
MAKEWIND 
MAXMEM 
MAXY 

MEM 
MEMCODE 
MEMLMT 
MEMROW 
MEMSLOT 
MEMTST2 
MENU1MSG 
MENUHDG 
MENULINE 
MENUSTRT 
MIDALCOL 
MINCNT 
MINUTE 
MITEMS 
MMUOB 
MMU126L 
MMUACHK 
MMUERR 
MMUINIT 
MMURSLT 
MMUSADRL 
MMUTST2 
MONITOR 
MOUSDY 
MOUSEON 
MOUSOUT 
MOUSUP 
MOVINST 
MSBUTN 
MSGLEN 


Be a Go Be bo Bs bo bs Gs be bo Go Gs Go be be be bo bs bo Be to bo be Go be bo be bo be be be Gs bo be bo bs bo be bo be bo bm bo & be 


0000014c| 
000026DE| 
0000273c| 
00000316 | 
00000800| 
00003438 | 
000029Dc | 
00000554 | 
0000182E| 
0000006c| 
00000078 | 
00000280 | 
0000327A| 
00003164 | 
000031C6| 
00000294 | 
0000016Cc| 
00000015 | 
OOFCC18D | 
00000700] 
00000010 
000002aD | 
00000E02 | 
00000658 | 
00003EC1 | 
000005a0 | 
000005a2 | 
0000002D | 
OOFCC1CS | 
000001BD | 
00000007 | 
00008008 | 
00FC8000| 
00000270 | 
000001D8 | 
00000216 | 
00000180 | 
00008000 
00000348 | 
0000259¢c| 
0000048B| 
00000007 | 
00000018 | 
00000006 | 
0000314A| 
00000002 | 
0000052E| 


LCNTHI 
LEV2LOOP 
LISA 
LOADORG 
LOOP 
LOOP2 
LOOPTST 
LPMSG 
LVL1VCT 
LVL4VCT 
LVL7VCT 
MAKEALER 
MAKEDBOX 
MAKESVCW 
MAPINV 
MAXTEST 
MBARLEN 
MEMBRD 
MEMCOL 
MEMLOOP 
MEMRSLT 
MEMSTRT 
MEMTST3 
MENUBASE 
MENUID 
MENULOC 
MENUWIDT 
MIDALROW 
MINMEM 
MISC 
MLOOP 
MMUOL 
MMU127B 
MMUEADRB 
MMUERR2 
MMULP 
MMURW 
MMUSET 
MMUTSTE1 
MOUSDWN 
MOUSE 
MOUSEOUT 
MOUSSCAL 
MOUSX 
MPAR 
MSCHK 
MSGROW 


Be Go bo bo be Ge be bo Gs bs bs Go Go bo be be be Go bo bo bo be bo be bs be be bo bo bs be bm bo bo bo be be bo bo be ob bo bb 


OOFCC195 
00002A82 
00003D54 
000002E4 
0000001F 
0000343A 
00002934 
00003EF9 
00000064 
00000070 
0000007C 
00003168 
000031B2 
00002814 
000005A4 
0000000C 
00000010 
000039CE 
00000004 
00000E0E 
00000186 
00001504 
000029CA 
00000530 
00003F39 
00000111 
00000012 
00000083 
000002A4 
000006EC 
000035F2 
00008000 
OOFE8008 
OOFE8008 
000003F4 
00000150 
0000022A 
00000290 
000029C0 
00000086 
00000004 
00003C2B 
0000048C 
00000486 
00000016 
00000A52 
0000007E 


tex 
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MSPLG 
NEWLISA 
NIOLMT 
NMIEXCP 
NOCHG 
NOCRD1 
NODISK 
NOIO2 
NORSTRT 
NROWS 
OK 
ONEHOUR 
ONESEC 
ORB1 
OTHRBINS 
OUTCH 
OUTDATA 
PAG128K 
PAINTBIT 
PAINT_V 
PAROFF 
PARXIT 
PBIT 
PCCOL 
PCHIP 
PCMDSZ 
PCROW 
PEADDR 
PHYTOLOG 
PMCHKSM 
PMMSG 
PMWRDS 
POWERCYC 
PRIXIT 
PROERR 
PROICON 
PROREAD 
PRTYINT1 


DSP ORR DD bbb Ob oe 


00000087 | 
00000001 
000006FF| 
000000ca | 
000023BE | 
00001332 | 
00000007 | 
00000B76| 
00000000| 
0000001B| 
000000FF| 
00EOF000 | 
0003D090| 
00000000| 
000025EC| 
00001678 | 
00000002 | 
00000100 | 
0000326A| 
0000325A| 
OOFCEO1C| 
00000DE8 | 
00000001 
0000000c| 
0000027D | 
00000005 | 
00000059 | 
000001A6 | 
00080000| 
OOFCC1FD | 
00003E03 | 
00000020 | 
00002A6C| 
00000FC6 | 
00001FDE| 
00003A9F| 
00001F70| 
00000F14 | 
00002B50| 
0000F424 | 
0000003F| 
0000005a| 
00000168 | 
00000276 | 
00000ECO | 
0000000a| 
0000285E| 


MSRCHSZ 
NEWTIWIG 
NMEMLMT 
NMIVCT 
NOCONT 
NOCRD2 
NODSK 
NOIO3 
NOTIFY 
NSPLMT 
OKCH 
ONEMEG 
ORA1 
ORB2 
OTHRMSK 
OUTCHR 
OUTNIB 
PAINTB1 
PAINTV1 
PAR 
PARON 
PATRN 
PBOOT 
PCERR 
PCHPROW 
PCR1 
PCSTRT 
PEADR2 
PIABASE 
PMERR 
PMSTRT 
PORTAL 
POWEROFF 
PRO 
PROFILE 
PROINIT 
PROXIT 
PRTYINT2 
QEND 
QUESTCH 
QUITMSG 
R2 

R5 
RAMCHK2 
RAMTEST 
RDCLKO 
RDDATA 


Ea Es Go fs be Bs Gs bs bo Go Gs Go be be bs be be Go be be Be te be bs Go be bo be bo be bo be te be te be bs bb bo me bo bm bb & b 


00000040| 
00000001 
000008FF| 
0000007¢| 
00000001 
00001350] 
00000050] 
00000B8E | 
000016B8 | 
000000FF| 
00002BDC | 
00100000 | 
00000002 | 
00000000| 
01800000| 
0000166E| 
00001696 | 
00003128 | 
0000325A| 
00000003 | 
OOFCE01E| 
AA55A55A| 
00001EFC| 
00000FD0 | 
0000027¢| 
00000018 | 
0000070A| 
00000278 | 
OOFCA001 | 
00001820 | 
0OFCC181 | 
0000001E| 
00002DpD8 | 
00000033 | 
00000002 | 
00001FF0 | 
00001FE6 | 
00000F72 | 
000002c0 | 
000038AA | 
00003F29| 
000000B4 | 
000001¢2 | 
00000ECC | 
00000EB0 | 
000012B2 | 
00001FD2 | 


MSUNPLG 
NEXTLINE 
NMI 
NOC 
NOCRD 
NOCRD3 
NOIO 
NORESET 
NOTPE 
OCD 

ONE 
ONEMIN 
ORA2 
OTHER 
OUT 
OUTCSR 
OUTPUT 
PAINTB2 
PAINT_BO 
PARERR 
PARTST 
PATRN2 
PC 
PCHIGH 
PCMD 
PCR2 
PCWIDTH 
PERIODS 
PKEY 
PMEXIT 
PMVCT 
PORTA2 
PRIVCT 
PROBOOT 
PROFLE 
PROMPT 
PROXIT2 
PUTBS 
QTRMEG 
QUESTION 
RO 

R3 

R6 


Es Go be Es be be be Go be bs be Go bo bo Ge be be Go te bs be be be be be be be be bo be Ge bm be bo te b&b te bm & & bb 


00000007 
00003156 
00000704 
0000005A 
00002194 
0000136E 
OOO000B5A 
00000001 
00000730 
00000000 
0000393C 
0003c000 
00000008 
000015E6 
000037A0 
00000006 
0000342C 
00003136 
00003128 
00000DD2 
00000D5C 
OOOOA55A 
OO000000F 
000000C0 
00000000 
00000060 
00000056 
00003EBD 
000000C4 
00001818 
000015DC 
00000078 
00000020 
00001ECE 
00000001 
00002A92 
O0OO01FEA 
00002B6C 
00040000 
00003C65 
00000000 
0000010E 
0000021C 
00000EDE 
0000005A 
000012D4 
000028C6 


tex 
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RDENTRY 
RDIOSLT 
RDSCTR1 
RDSLT 
READCLK 
READIT 
READQ 
RECTTABL 
RET 

REV 
ROM4K 
ROMIDCOL 
ROMTST 
ROWBYTES 
ROWSLEFT 
RSPOK 
RST1 
RSTKBD 
RSTRTIME 
RSTXIT 
RTS2 
RUNTESTS 
RWCHK3 
RWF2 
SAVEDADD 
SAVEDX 
SAVELO 
SAVERR 
SCALE 
SCANMSK 
SCCDATA 
SCCLERR 
SCCLXIT 
SCCSET 
SCNRSLTS 
SCRNBASE 
SCRNSAV 
SCTR 
SEEK 
SEG20FF 
SENDMSG 
SERR1 
SET2 
SETCRSR2 
SETERR2 
SETMSG 
SETUP 


BPD DPD PR BB bo em mb & 


00002EAC | 
000021¢Cc| 
00001Cé6C | 
00001B9A| 
0000120 | 
00002032 | 
00002BB6 | 
0000053A| 
0000000D| 
00003FFD| 
00000000 | 
00000050| 
00000194 | 
0000005a| 
0000012c| 
000020Dc | 
00000A06| 
00000AaA | 
00900000 
00000a3C | 
eee | 
00000E6A| 
00000254 | 
00000006 | 
00000528 | 
00000522 | 
000004BC | 
0000222c| 
00002F42 | 
00183000 
00000004 | 
0000108Cc| 
0000108A| 
00000774 | 
0000154c| 
00000110 
00000874 | 
00000008 | 
00000083 | 
OOFCE0OC| 
000021A6 | 
0000003D| 
10000000| 
0000371E| 
0000244c| 
00003ED9 | 
OOFCE012 | 


RDERR LB 00000F0C| 
RDIOXIT LB 00002234| 
RDSERN LB 00000BF6| 
RDTIME AB 00180000} 
READCOPS LB 00002DBE| 
READKEY LB 00002702| 
READS AB _00000000| 
REGTST LB 00000202| 
RETRY AB 00000004| 
RLONGS AB 000000E1| 
ROM8K  AB_00000000| 
ROMIDROW AB 00000003] 
ROMV AB 00000030] 
ROWLEN AB 00000042| 
RS232A AB 0000000F| 
RSPTIME AB OOOOFFFF| 
RST2 LB 000009F6| 
RSTLMT AB 00OO0FFE| 
RSTSCAN LB 000009C2| 
RTRYCNT AB 00000058| 
RTS4 Mo eecsse-- | 
RWCHK1 LB 0000023C| 
RWERR —- LB_000002C2| 
RXBF AB 00000000 
SAVEDDAT AB 000004A2 | 
SAVEDY AB 00000524| 
SAVEREG2 LB 0000003E| 
SAVEXCP LB 00001D1C| 
SCANCPS LB 000011E2| 
SCANXIT LB 00000A6A| 
SCCEXIT LB 0000108E| 
SCCLOOP LB 00001058| 
SCCOUT LB 00001066| 
SCCTEST LB 00001008| 
SCNSLTS LB 000019D6| 
SCRNERR LB 0000086A| 
SCRNTST LB 00000822| 
SEARCH LB 000018D6| 
SEGIOFF AB OOFCE008| 
SEG20N AB OOFCEOOE| 
SENDRSP LB 0000210E| 
SERR2 AB 0000003E| 
SETBUSVC LB 000006E2| 
SETDUR LB 000016CE| 
SETMEM LB 000028A2| 
SETSCC LB 00001048| 
SETUPON AB OOFCEO10| 


RDINPUT 
RDRETRY 
RDSLOTS 
RDWRERR 
READIN 
READMMU 
RECTCNT 
REMAP 
RETRYCNT 
ROM16K 
ROMBASE 
ROMSLCT 
ROW2ADR 
ROWLINES 
RS232B 
RSTO 
RSTCODE 
RSTMMU 
RSTSCC 
RTRYMSG 
RTS6 
RWCHK2 
RWF1 
SAV2PM 
SAVEDROW 
SAVEHI 
SAVEREGS 
SAVRSLT 
SCANERR 
SCCBCTL 
SCCIN 
SCCLOOP2 
SCCRSLT 
sccvctT 
SCRACHSI 
SCRNOK 
SCROLL 
SECLEN 
SEG1ON 
SELF 
SERNUM 
SET1 
SETCRSR 
SETERR1 
SETMMU 
SETTYPE 
SETVCTRS LB 


BPR DDD bb bbb ee eb 


00002ABA 
00001C48 
00001306 
00000017 
00002AC4 
000005D0 
0000053A 
00000590 
00000020 
00000001 
OOFEO0000 
000000FE 
00020000 
0000000A 
00000010 
000009DC 
00000080 
00000566 
000010D0 
00003E58 
0000024C 
00000002 
0000184E 
00000526 
000004FA 
0000003A 
00000E98 
00000A60 
OOFCD241 
0000107A 
0000106C 
000002AC 
000010EE 
000000E0 
0000086C 
00002808 
00000200 
OOFCEOOA 
00002444 
00000240 
00000000 
0000371A 
00002448 
000002C6 
00001198 
000006AC 


tex 
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SETVLTCH LB 
SHFTKEY 
SIDE 
SIZXIT 
SLOT1L 
SLOT3 
SLOTMR 
SNUM 
SPIN 
SQUAWK 
STAT 
STAT2 
STATBFR 
STATMSK 
STATREG 
STATSUM 
STATXIT 
STKBASE 
STRTMSG 
STST 
SVCLEFT 
SVCTOP 
SYSTYPE 
T1LL1 
T2CH2 
TAG 
TCNT 
THREE 
TIMMSG 
TMOUT 
TONE 
TOOLONG 
TOTLMEM 
TRCVCT 
TRPEXCP 
TST2 
TSTCOL 
TSTERR 
TSTINIT 
TSTLOOP 
TSTMROW 
TSTROW 
TSTWSTRT 
TSTXIT2 
TWG2 
TWGDATA 
TWGFAIL 


DP DODD DD DDD ee eb 


00000886 | 
000000FE| 
00000006 | 
00000502 | 
00FC0001 | 
00001352 | 
00000005 | 
00FE8000| 
000000c8 | 
0000270c| 
00000010 
000001B5 | 
00000184 | 
€140C000 | 
OOFCF801 | 
OOFCC17D | 
000020B6 | 
00000480| 
00003E98 | 
00000016 | 
00000014 | 
000007BC | 
000002aF | 
0000000c| 
00000048 | 
00000D58 | 
00000003 | 
00003946| 
00003DE0 | 
00000055 | 
00000AF6 | 
000024c2 | 
00000228 | 
00000024 | 
00000009] 
000013aA | 
0000000a| 
00002344 | 
00000E84 | 
00000200 | 
00000040] 
00000031 
00001144 | 
000015¢4 | 
00000032 | 
00020000| 
00003E10| 


SETXIT 
SHR1 
SILENCE 
SKEY 
SLOT2 
SLOT3L 
SLOTROW 
SPACE 
SPLMT 
START 
STATO1 
STAT3 
STATERR 
STATNZ 
STATSAV 
STATUS 
STBIT 
STRTBOOT 
STRTRD 
SUPSTK 
SVCMSG 
SVCWIDTH 
T1LH1 
T1LL2 
T2CL1 
TBLEND 
TENSECS 
THRESH 
TIMOUT 
TNTHSEC 
TONE2 
TOPOFFSE 
TRAK 
TRK1 
TRPVCTO 
TSTBIT 
TSTCRD 
TSTHI 
TSTIROW 
TSTMCOL 
TSTMSG 
TSTSTAT 
TSTWWIDT 
TURNON 
TWGBOOT 
TWGDSP 
TWGHDR 


Be Es Go fs Go Go Go Bs bo Go to bo be bo be bo bs be be bo be Gs be be be be Go be bo be be bm bb bm bo mo 


0000247c| 
00000014 | 
00000B52 | 
000000F6| 
00001334 | 
00FC8001| 
00000016 | 
000037BA| 
00000F00| 
00000440 
00002076 | 
00000186 | 
000020B2 | 
00000053 | 
OOFCC161 | 
00000180| 
0000000E| 
00001¢82 | 
00002048 | 
00000290| 
00000052 | 
00000042 | 
0000000E| 
00000030) 
00000010 
0000128B | 
00009000 
00000005 | 
00000027 | 
000061a8 | 
00000B06| 
0000010E| 
0000000a| 
00000001 
00000080 | 
0000000c| 
00001000 | 
000004cE | 
00000055 | 
0000000E| 
00003FD4 | 
00000F68 | 
00000046| 
0000093E| 
00001BCC | 
00002510 
0001FFF4 | 


SFER 
SHUTDOWN 
SIZRSLT 
SLEEP 
SLOT2L 
SLOTCOL 
SNDR1 
SPEED 
SPURVCT 
STARTOP 
STAT1 
STAT4 
STATFLGS 
STATOK 
STATSTRT 
STATWRDS 
STENTRY 
STRTIME 
STRTXIT 
SVCHIGH 
SVCSTRT 
SYSOK 
T1LH2 
T2CH1 
T2CL2 
TBOOTERR 
TERR 
TIMFLG 
TKILLER 
TODSET 
TONEDLY 
TOPSIDE 
TRAPVCT 
TRPERR 
TRYRD 
TSTCHK 
TSTDONE 
TSTICOL 
TSTISPC 
TSTMENU 
TSTQUAL 
TSTWHIGH 
TSTXIT 
TWG1 
TWGCHK 
TWGERR 
TWGLOOP 


Es G5 Gs bs Go Be Bs Go be Be Go Gs bs be Go be Gs be bm be Ge bm be be Bm bob Bb oe mm bm b&b om & & 


00000000 
000023E8 
00000184 
00000088 
OOFC4001 
00000003 
000020DE 
0000000C 
00000060 
00003148 
00000184 
000001B6 
000002A2 
00002186 
OOFCC161 
00000008 
00020000 
01200000 
00002074 
00000140 
OOOO0EDA 
000016DE 
00000038 
00000012 
00000040 
00001D0A 
000024c4 
OOFCC199 
000000AC 
00002466 
00000654 
00000000 
0000001C 
00000736 
00001F90 
0000139A 
00000E4E 
00000014 
0000000E 
00003F40 
00001800 
00000054 
000015c0 
00000031 
000022EA 
00001DF2 
0000249A 


tex 
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tex 


TWGMSG LB 00003DE9| TWGOK LB 00001DFA| TWGOUT LB 00001DF0 
TWGRD LB 00001D70| TWGREAD LB 00001D76| ‘TWGRSLT LB 00003E23 
TWGRXIT LB OO001DFE| TWGTST LB 0000247E| TWIG1 AB 00000000 
TWIG2 AB 00000001| TWIGGY AB 00000001| TWO LB 00003941 
TWOSEC AB 0007A120| TXBE AB 00000002| TYPE AB 00000014 
UCLMPERR AB 00000019] UNCLAMP AB 00000002] UPPER LB 00003ADA 
USERINT AB 00000001] USPSAV AB 000001FC| VCTRINIT LB 00001EB0O 
VECTLOOP LB 0000101A| VFY AB 00000004| VFYCHKSM LB 0000188C 
VFYTIME AB 01800000] VIAL AB 0000000A| VIAI1BASE AB OOFCDD81 
VIAICHK LB 000008B0| VIAITST LB 000008A2| VIAI1VCT LB OOOOODF8 
VIA2 AB 0000000B| VIA2BASE AB OOFCD901| VIA2CHK LB 00000780 
VIA2TST LB 00000780| VIA2VCT LB OOOOO7AE| VIAFAIL LB 000007F4 
VIARW LB 000007D0| VIARWEND LB 000007F6| VIATST LB 000007B8 
VID AB 00000002| VIDAJST LB 000029F4| VIDBIT AB 00000004 
VIDCHK LB OO000BA2| VIDERR LB OOOO0OBD4| VIDLTCH AB OOFCE800 
VIDMSG LB 00003F09| VIDTST LB 00000B96| VIDXIT LB OO000BEO 
VMSK AB FFFF8000| VRBIT AB 00000002| VRSN LB 00003FFC 
VSRCHSZ AB 00008000| VTIRDIS AB OOFCE0O18| VTIRENB AB OOFCE01A 
W14COL AB 00000017| W34COL AB 00000041| WAIT2 LB 00002CBA 
WAIT3 LB 00002D0E| WAITALRT LB 00001EA6| WAITICON LB 00003A3D 
WwCcoL AB 00000002| WFBSY LB 000020FC| WFBSY1 LB 00002100 
WENBSY LB 00002122| WFNBSY1 LB 00002138| WENBSY2 LB 0000212A 
WENBSY3 LB 00002132| WHATMSG LB 00003FDB| WHITEN LB 00003108 
WINDHIGH AB 00000140| WINDSTRT AB 0000070A| WINDWIDT AB 00000056 
WMIDCOL AB 0000002D| WMIDROW AB 000000B4| WORDSPER AB 0000000E 
WRAPXIT LB 00000500] WRITESCC LB 000010BE| WRITETIT LB 000033B8 
WRMSTRT AB 0000001E| WROW AB 00000014| WRPERR AB 00000014 
WRT AB 00000001| WRITMENU LB 000027A0| WRTMMU- LB 000005BA 
WRIMSG LB 00002376| WRTSCRN LB 000026F2| WRTSUM LB 0000187E 
WT4BOOT LB 00001A14| WT4INPUT LB 00002D38| WWPERR - LB OOOOODF4 
XCARD LB 00003A14| XCRDSTRT AB 00001E20| XFRDATA LB 00001DCE 
XFRHDR LB 00001DB4| XLATE LB 0000125E| XLOOP LB 0000361A 
XPCTADDR AB 00000268| XPCTDATA AB 0000026C| 
Assembly complete: 11840 lines 
0 Warnings 
0 Errors 
Se BS ee aa SS SSeS SSH S45 S$=5=-== ASSEMBLY COMPLETE. 
;APPLE LISA COMPUTER 16K ROM DUMP ;ROM NOTES: ; WHEN LISA STARTS SO THAT 
} SSS q y KEY VALUES AT THE START OF 
: ; © STARTING ADDRESS IS $FE0000 ; THE ROM OCCUPY THE 68000 
;CREATED BY DAVID T CRAIG , , CPU'S LO-MEM VECTOR TABLE 
771533 . 6(06@COMPUSERVE . COM ; © ROM IS 16K BYTES IN SIZE ; 
709 JUNE 1998 ; ; © THIS ROM HAS VERSION 2.48 
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; WHICH IS ALSO SEEN AS 2.H 


7 (SEE THE 2ND 2-BYTE WORD 
: FROM THE ROM'S END, 0248) 


; © LAST 2-BYTE WORD IS THE 
; ROM CHECKSUM WHICH IN THIS 
7 DUMP IS INCORRECT AT $0000 


; (USE A REAL LISA AND ITS 

; BUILT-IN "SERVICE MODE" TO 
; PEEK AT THE ROM AND FIND 

; WHAT THE CHECKSUM SHOULD 

, BE - OR LOOK IN THE ROM 

; SOURCE FOR HOW THE CHECKSUM 
; IS USED) 


; CHECKSUM IS $3F7B 


0000048000FEOOF600FE003000FE0030 
OOFE003000FE003000FE003000FE0030 
OOFE003000FE003000FE003000FE0030 
3E7C048042876000015C21CF029021CE 
01F84E6E21CE01FC3C7C01F848E6FFFC 
4E7553455256494345204D4F44450000 
OOFE003000FE003000FE003000FE0030 
OOFEO03000FE003000FE003000FEO0CA 
4EFA25D04EFA2 4AE4EFA36644EFA052C 
4EFALEDE4EFA1CE04EFA0E164E714E75 
4E714E754EFA052A4EFA08AC4EFA11F2 
4EFA157E4EFA07 4C4EFA0A3C4EFA17CE 
4EFA17BC4EFA0B3060FE423900FCE012 
0839000100FCF801661431F900FCF000 
01AA4A3900FCE01C4A3900FCEO1E4A39 
00FCE0104E73303900FC800002400FFF 
0C400901664C02790FFFOOFC80086642 
33FC07000000800033FC090100FC8000 
33FCOF0000FE8000427900FE80084239 
OOFCE01221CF02903E7C04806100FF00 
49FA0006600006B495CA428097CB6000 
23F44287303900FE800002400FFF0C40 
0F00663002790FFFOOFE8008662608C7 
001E700033FC090000FC800033CO00FC 
800833FCOFOO00FE80004E7049FA0006 
6000066E428041FAFE6843FA3E62D058 
E358B3C866F8D0586600FF1E4A876BE4 
49FA0006600000604DFA00066000006C 


661649FA0004604E4DFA0006600000A2 
6604600000F246474A4767024E704E70 
207C000280007201740749FA00046010 
207C00028008740549FA0004600260D8 
200830813610E3494840E34848402040 
534266EE4ED4303CA55A72007400247C 
00020000007C07104ED4207C00008000 
227COOFE8000267CO0FE800849FA0006 
60000072464049FA00046068464049FA 
00046060E350B3C86704D1CA60DEB7C8 
670A207C00008008224B60D04A424ED6 
207C00008000227CO0FE8000267CO0FE 
8008383C0C003210B14102410FFF6620 
3084E350B3C86704D1CA60EAB7C8670C 
207C00008008224B780060DA4A424ED6 
844160DC30803210B14102410FFF6602 
4ED484414ED4207C0000800870007200 
380274007C00247C00020000267C0000 
01007C1049FA000460CAD08BD1CA5346 
66F2207CO0FC8008700049FA000460B4 
D1CA49FA000460AC207C00008000303C 
070072007C1049FA00046098D1CA5346 
66F4207CO00FC8000303C090049FA0004 
6082D1CA303COF0049FAO0066000FF76 
4R426600FE9434047C0049FA00066000 
FEC64A3900FCE00A7C0149FA00066000 
00B0670000904DFA00066000FEBE6600 
00844A3900FCE00E7C0349FA00066000 
009067704DFA00066000FEA066664A39 
OOFCE0087C0249FA00046074675C4DFA 
00066000FE8666524A3900FCEO0C49FA 
00066000FE624A3900FCEO0OA7CO14DFA 
00066000FEAC662C4A3900FCEO0E7CO3 
4DFA00066000FE9A661A4A3900FCE008 
7C024DFA00066000FE88660E4A3 900FC 
E00C60144A3900FCE0084A3900FCEO0C 
E85E844608C700004A87 6BO0FDA46030 
383900FC800002440FFF0C440900661E 
383900FE800002440FFFOC440F00660E 
38390000800002440FFF0C4407004ED4 
423900FCE01242802040224026402C40 
72024841283CAA55A55A3604464349FA 
0006600000A44A46675246464A466648 
D7C1224BB3FC0020000066E213FCOOAF 
OOFCE800303C61A8534066FC13FC002F 
OOFCE800207COOFCDD814A1045FA0006 
600000B249FA000660000350207CO00F 


tes 


FFFE2084261060FA46463C46204BB1FC 
001000006F06207C00100000244BD7C1 
224BB3FC00200000672820086604B651 
671E49FA000460204A46670E46464A46 
67DC300E464680463C40244B425360CE 
4251D5C1224A605E7A20424632843343 
0002B85167063011B9408C40B6690002 
670830290002B7408C40334400023283 
B8690002670830290002B9408C40B651 
67063011B7408C404A4667064A995345 
66BA4ED47060323CO0FA740449FA0006 
600005A44ED22A082C097009E0ADEOAE 
247C00008008267C000080002A7C0002 
0000263C00000100787E3005323C0700 
49FA000460245344D083BC8066F24240 
323C0C0049FA00046010538466F6EC8E 
534613C600FCE80060664A3900FCE010 
34803681D5CDD7CD423900FCE0124ED4 
363COFFF4A3900FCE0104A4267220C02 
000167160C02000267084A3900FCEOOE 
60084A3900FCE00E60064A3900FCEO0A 
3012C0433213C243D5CDD7CD4A3900FC 
E0084A3900FCE00C423900FCE0124ED4 
2448264991C8327C080049FA00066000 
08806738200AE088EE8813C000FCE800 
49FA0006600001B445FA00066000FF06 
303C61A8534066FC45FA00066000FEF6 
91C8303CA55A3080321060FA307C0180 
707F429851C8FFFC31C3018631CE0184 
21CA02A421CB029497CA21CB02A8207C 
0000800097C821CB011031C201B021FC 
000002B002606104600000CA41FA003E 
93C9704022C853406EFA612641FA0090 
21C8000C41FA003221C8001041FA0036 
21C8007C41FA006021C8002821C8002C 
4E7547FA005E21CB00084E7521C701AC 
7E0008C70007606C21C701AC7E0008C7 
0008606021C701AC7E006100085C6620 
08C70016610008DA4A3900FCE01C0801 
000567060281FFFF800021C101A66034 
08C70004602E21C701AC7E0008C70009 
602221C701AC7E0008C70005600A21C7 
01AC7E0008C7000631DF028021DF0282 
31DF028631DF028821DF028A31C0028E 
60000C2847FA03E421CB000861000952 
47FA002C21CB0008207C00FCD9317008 
4DFA00046022670A08C7000B4A87 6BEO 
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600A4A876BDA4 9FA0004605460747033 
08C7000B600001622248D3C070004202 
42104211363CO0FF49FA000460024ED6 
B4106620B411661C1083B4116616B610 
66121283B610660CB6116608140351CB 
FFE0600252404A404ED4103C00806002 
70FF207CO0FCD901117C0084001010BC 
0004117COOFF00181140000808D00007 
4ED420780110227802A849FA00066000 
0680676E08C700156100064A61362278 
01102049247C0000800091CA48E700E0 
49FA00066000065A4CDF0700670E2808 
6112224891CA20086EE2603621C80110 
6114602E7211E2ACD844220348438641 
877340004E7524380110223802A89282 
203802949081E088EE8813C000FCE800 
4E7561002832613449FA00066000FF4C 
47FA054621CB0008207CO0FCDD8D7002 
ADFA00066000FEF2670C08C7000A4A87 
6BDE60000AC64A876BD6600E103A371F 
7A037C5061002E544E7547FA002A21CB 
0008612C65144A876BF020070280001F 
FFFF670000BE60000A9208C7000C4A87 
6BD860000A86703408C700126000FE3A 
207COOFCDD81117C0001001600280009 
0018117C007F001C117C007F001A4240 
611465107070610E650A705061086504 
706061024E7548E7F8E040E7007C0700 
207CO0FCDD8122482448D4FC00067440 
76FF78061140001E323C061A53416732 
091166F8C0OFC0001323C061A53416722 
091166F81483323C061A534167140911 
67F8700A53406EFC4212117C0082001C 
600846DF003C0001600246DF4CDFO71F 
4E7522780260347C02C0616C64FC6100 
00DA428142834284615E65600C000080 
67240C000087670E0C00000766027802 
6146654860E67801613E65400C000007 
66DA780260EA613065320CO000FD6604 
760160DCOCOO00DF620811C001B27602 
60CEOCOO00FF660408C7000D0CO000FE 
660408C7000C60B861444E754A01660A 
610000827201613664924A03660408C7 
00174A0467145344671008C70018600A 
08C70014600408C7000C21C902602007 
0280001830004A8066000920606AB5C9 
671A243C000001FF207CO0OFCDD811028 


001A08000001660A534266F2003C0001 
4E751028000212C04E75207COOFCDD81 
08900000002800010004203C00000BB8 
61204E7508D0000061124E75203C0000 
61A8600E203C001312D06006203C0006 
7C28538066FC4E756104600000AA103C 
00A07200740848E7108849FA00046006 
4CDF11084E75207CO0FCDD810028000E 
0004021000F18510022800E300160028 
001000164A3900FCC0316A1008390005 
00FCC03166061600E40BD00311400010 
117C000F0014363CO0D051CBFFFE51C9 
FFF6022800E300164ED408C700103E7C 
048047FA001221CB0008207CO0OFCD901 
4A106000FC0C08C7000B47FA001221CB 
0008207COOFCDD814A106000FC9608C7 
000160000806610025E8327C1DF66100 
29D4267COOFCE018287COOFCE01A2A7C 
OOFCF801303C0ODF474024A534A540515 
670651C8FFFA600C4A534A5405156704 
4A53600C08C700024A876BC6600007BC 
307C0240611064EC4A7900FCE0184A87 
6BB06000016848E7018040E7007C0700 
227CO0FE8000247CO0OFCF8014E56FF18 
47EEFF1849FA01422D48FFF872022D7C 
00000007FFFC427900FCE018427900FC 
E01A031266FC4C9100FF489300FF508B 
508B4E71700853AEFFFCSFC8FFFE6EE6 
2D7C00000007FFFC303CO0AB51C8FFFE 
4C9100FF489300FF508B508B4E717008 
53AEFFFC5FC8FFFE6EE6427900FCE018 
780147EEFF18284BD8FC00706100007C 
424467646100009E47EEFF18D6FC0070 
284BD8FC0070610000624A44674A6100 
0084206EFFF8424010280018343C0064 
C0C212280019343C000AC2C2D0411228 
001AD04142414242424316301000D443 
52410C41001866F21628001BD4430442 
003CB440670242444E5E46DF4CDF0180 
427900FCE01AE24C4E7542807202341B 
E34AE310B9CB660AD7FCFFFFFF905341 
670EOCOOO0FF66E6E948E80830C04E75 
42444E75740672084280E3DBE310B9CB 
6606D7FCFFFFFF90534166EEE948E808 
30C0534266E04E754B4153002478007C 
47FA009221CB007C2A7COOFCF8014A39 
OOFCE01C42824284303C01FF307C0300 


tex 


36102248D3F802A44A3900FCE0063080 
4A3900FCE0044A3900FCE01E4A426632 
32104E714A42672A0815000166243839 
OOFCF0004A3900FCE01CEB8CB3C46612 
21CA007C4240464030804A3900FCEO1E 
601608C700034A876B824A3900FCEO1C 
21CA007C600005B44A876BO0FF706100 
27C6600E74014E73703208C7000A6000 
FB18327C1E046100276C6100F8D643FA 
010421C9007C0807001E67047A016020 
61000A14650E0839000600FCC18D6704 
7A0260027A014A3900FCE01C612C660E 
4A3900FCE01E61226604534566E84A87 
6BBC08070015660005426100276247FA 
F8A421CB007C60000198611849FA0006 
6000003E670408C70015611C66EE0807 
00154E757402484228380110307C0800 
2242367C01864E75300348438640875B 
B889670A2049D3C2B8896C0222444E75 
2A48203CAA55A55A46807600007C0010 
2080B09067064DFA0004604046802080 
B098670A59884DFA000460305888E390 
4680B3C866DA203CAA55A55A204D7200 
4681007C0010B09067064DFA0004600C 
20C1E390B3C866EE4A834ED42210B181 
86814ED661526600F7EC08C7001621C0 
026C21C80268263802A4610000C40801 
00056604743F600A343C7FFFO281FFFF 
800021C101A643FA002A21C9007C9283 
22414A3900FCE01C4A3900FCE01E4284 
181951CAFFFC605E0839000100FCF801 
4E7561F46600F78E6100007621C10278 
93FC0000000121C9027021C402740801 
00056632220902810000000324016706 
E188534166FAE1980280000000FFB900 
671E080200006602E148367C01862809 
26006100F8B04A3900FCE0O1C6000F796 
220908010000670811FC0014027D6006 
11FC0009027D7411E4A911C1027C60D6 
4281323900FCF00031C101AAEB894E75 
327C1E126100256E47FA00E421CB0008 
610000BE54887200700010BC00023E97 
1410B4016704700160643E9710BC0002 
5281108166E460100900044D0B500C00 
0D000E1303C105EA45FAFFEE323C0010 
5588616A720076FF08100002660851CB 
FFF8544060243E971141000408100000 


6 <7 Computer Boot ROM 2.48 Listing « 259 of 265 


660851CBFFF8584060103E9714280004 
B401660876FF520166CE6002504011C0 
02AC672008000000670408C7000FE248 
4A00670408C7001061264A876BO0FF5A 
600002E8611A4A87 6BOOFF4E604E1410 
6002109A51C9FFFC4E75020009C00582 
207CO0FCD24145FAFFF2720461E0700C 
6100FA0045FAFFE8720261D24E75B1FC 
00FCD24166047038600270374A876A08 
3E7C04806000FF026000F80E47FA0078 
21CB0008207CO0FCC0017A033C3C0051 
702F610026161028003011C002A17202 
6100054661624282227CO0FCD9010229 
00BF0010203C001C8000081100066606 
538066F6743911E8001602AE66164A02 
6612705511400002B028000266066100 
0BD6640C08C700114A876B906000021C 
4A876B88603A70394A876A083E7C0480 
6000FF7A6000F7824280123900FCC031 
4A016A160801000567047001600C0801 
0006670470026002700311C002AF4E75 
47FAF75421CB00086100F9246100F8FE 
207COOFCDD81117C00C9001861046000 
00AC22780260347C02C06100F8926568 
OCOOO00FF66246100F886655COCOO00FE 
66366100F87A65500C0000C4660C11FC 
000F01B308C7001C60D04A006A1E0C00 
0OFD67C60C000086660808F8000202A2 
60B808C7001D60B2612460AE0C000006 
660808B8000402A260A00C00007F6606 
08B8000302A2609221C902604E7547FA 
001A4282B01B670852424A1366F6747F 
11C201B308C7001C4E75F4F1F2F3E401 
E1E201E3D00101010101AF0061124A87 
6BFA0807000E660001026100232A604E 
40E7007C070070026100F6AC6534347C 
01C0327C01B96100F7C665260C000080 
66F06100F7BA651A020000F00CO000EO 
66E072056100F7A86508534166F646DF 
4E7508C7000E46DF003C00014E75327C 
1E20610022807801610C4A876BF86100 
22CE6000009648E740702C4F4281327C 
0298247C00FC00012A78000847FA0014 
21CB0008030A00006156640808C70019 
60024259247C00FC400147FA001421CB 
0008030A00006138640808C7001A6002 
4259247C00FC800147FA001421CB0008 


030A0000611A640808C7001B60024259 
007C070021CD00082E4E4CDFOE024E75 
0C41FFFF671032C16B060801000E6704 
61000E3A4E7542594E756100EC9E47FA 
000A21CB00086100FDF06100F3363E7C 
04806100F4D261001D22200702800E7F 
FFFF4A8067000220200702800000000F 
4A80673A45FA25B508070001670A7029 
610001086000F39A610002E2610002DE 
610002D60807000067047028600C0807 
00026704702A6002702B600001B42007 
0280000003F04A806744610002B06100 
02A845FA2930080700046704702C602A 
080700056704702D6020080700066704 
702E6016080700076704702F600C0807 
00086704703060027031600001642007 
0280001FDC004A806700008E45FA24DD 
0807000A6708703261706000F4346100 
024C61000244610002440807000B6704 
703360520807000C67087034614C6000 
F44A0807000E67047036603A0807000F 
67047037603008070010670470386026 
0807001167047039601C080700126704 
703A6012080700136704703B60080807 
00146702703C600000D861001FEE6100 
013208C7001F4E750807000D67166100 
01C8610001C8610001C045FA26997035 
600000AE20070280006000004A806700 
0070610001A8610001A06100019C0CB8 
0008000002A86E14203802A40C800010 
00006D04720160027202602608070016 
6706203801A660E4307C018670084A58 
6604534066F80C0000046E0472016002 
7202080700156708704611C102AD6002 
704721C7018045FA244661001EC46034 
61000136610001366100013245FA2476 
0807001B67047203600C0807001A6704 
720260027201103801B461001E946004 
61001F1821C70180610000586100FC14 
6100F34E610019F660000FC23E7C0480 
6100F10060E620070280018000004A80 
672C08070017670645FA25AB60146100 
023665160839000700FCC18D670C45FA 
261B61001F42600000A0088700186000 
OOBE48E7F0003A3C00973C3C00126004 
48E7F00002800000FFFF72014A406726 
4282428380FC000A48401400E89A5243 


ney 


424048404A40670260EAE99A10025343 
6704611460F461064CDFO00F4E756108 
0645000A7C014E7548E7E0007408B401 
6706E998534260F6E998610A534166F8 
ACDF00074E752F000240000F0C000009 
62060000003060080400000900000040 
61002088201F4E75610E610C610E6100 
F41461001A16601A702060027060323C 
00FA74046100F4206100F3F24E7542B8 
0180610018E842800807001C67101038 
01B30C00000F665C6100015460560807 
001D660001F46100012E64164A3802AF 
670C74016100032067047001600E7002 
600A103900FCC189E8086028323C1000 
383C1800610001A0661A3602323C8001 
383C9FFF61000190670434036A06C4FC 
0003300211C001B34A00660E4A3802AF 
67046000076A4200600A0C0000016608 
103C0080600004560C00000267E40C00 
00046E08227C00FC0001601A0C000007 
6E08227C00FC4001600COCOO000A6GE0A 
227C0O0FC8001600009B60C00000F6700 
0A8A0C000010667608B8000002A208F8 
000102A26100194E6100199A47FA0052 
21CB000861000060653E103900FCC189 
E8080C00000F6630423900FCC18908B9 
000600FCC18D47FA25FC61001F04207C 
00FCC1950108000072046100FE627C0C 
61000CB861000CFA6100EEC860000D7E 
47FA25E145FA2125428060000D086100 
OEDC600000C448E7C080207CO00FCC181 
303C001F320061444CDF01034E7548E7 
C080E908123900FCC1890201000F8001 
13C000FCC18908F9000600FCC18D207C 
00FCC181701E61064CDF01034E753200 
610A46435243078800004E7542824283 
4A41670805080000588860023418D642 
E35B51C8FFEC4A436704003C00014E75 
48E7203045FAF9C447FAF9D14282B002 
670C5242528AB7CA66F4700260021012 
ACDF0C044E7548E790007400760241F8 
029852423018C044B041670651CBFFF4 
420424CDF00094E750238000F02A24278 
053A7C014A3802AF6602524674016100 
01266602524642846100F9EC41F80298 
30186A12247CO0FC00016100026E6506 
02430003DC4330186A12247C00FC4001 


6 <7 Computer Boot ROM 2.48 Listing * 260 of 265 


61000258650602430003DC4330186A12 
247C00FC800161000242650602430003 
DC430C06000A6F027C0A70122206C2FC 
002247FA252461000E5831FC05A20530 
31FC06580532103802AF67140C000003 
661C4282610000A0661445FA213E6006 
45FA217C7201740076FF610000E845FA 
216E7202740176FF610000DA42820C00 
0003671261000070660C45FA20D37402 
76FF610000C0428041F8029830186A0E 
247C00FC000172017403610001583018 
6A0E247CO0FC40017202740661000146 
30186A10247C00FC80017203343C0009 
61000132610015F808F8000502A26100 
122665000CC26100F836610015BE6100 
16AA6000FCB248E7AA80610005B4664E 
610006F04A00671E4A02674042806100 
0456610006D648E780806100167E4CDF 
01014A00661E021000EF61000690660A 
0C280001007867027052760061000690 
610006A042280018001000184A404CDF 
01554E7548E7804030026100FE143278 
053061064CDF02014E7548E7F8A441F8 
053A3410C4FC0005D442525831802000 
61000C5838006100193ECCFC00083186 
200231852004303C0090DC4031862006 
06450022318520089DCE3C780532224E 
DDF801104A036A1461001AE841FA2020 
B5C8660C2A496100195C600461001916 
D2FC0445610018F0424061001C1E3004 
61001C1832780530D2FCOBF431C90530 
32780532D2FCOBF431C905324E714CDF 
251F4E7548E7F8E00800000D661A45FA 
1EC476FF327805326100FF3A45FA1LEB6 
2A4961001900602C61306528227C0001 
FFFC280302440003204A32182449D4C1 
6100FF125344670C321852422449D4C1 
6100FF024CDF071F4E7548E7A0000800 
000D6720428461000624651A42833639 
0002000408C30000247C0001FFFCD5C3 
161A600276014CDF00054E7547FAF5B8 
21CB000811C00535610002CC207CO0FC 
C001227CO0001FFF4247C000200004281 
0280000000FF4A406608117C00080002 
6006117C00800002E098828010BC0086 
610001F265000082267CO0FCDD8108AB 
000400046100024C6500006E42406100 


0140640A0C00002767000060600A3029 
00040C40AAAA6724123C000142406100 
012065464201424061000116653C3029 
00040C40AAAA67047026602E42B801B4 
47FA009C49FA009E61000236247C0002 
000048E780806100EE226100EE384238 
02B04CDF01014ED2702711C001B40C00 
00276720610001CC651211E800BA01B6 
11E800C401B511E8005801B761000198 
610000846100EA1C61000092103801B4 
0C000007661445FA1E7E610018503A7C 
287E61001780600002560C000017670C 
0C00002667060C00004B660661001752 
600845FA1C47610017D26000022E49FA 
0004600849FA0004601060A031DF0280 
21DF028231DF02864ED431DF028821DF 
028A6100E3063E7C04806100E970704B 
11C001B44ED4207CO0FCC001117C0088 
000210BC0087610000AC4E7545FA1FCO 
123805354A0166047201600272024E75 
243C00C0000048E7107840E7007C0700 
6100011403C800041140000C42280002 
10BC0081610000A8655610280010117C 
00CC000210BC0085615A65444A006642 
49E803E8074C000022C3074C000822C3 
074C001022C349E80400303C001F074C 
000024C3074C000824C3074C001024C3 
074C001824C3D8FC002051C8FFE2600A 
702746DF003C0001600446DF42804CDF 
1E084E7548E71010263C00120000207C 
0OFCC001267CO0FCD901022BO00BF0010 
4A106714081300066606538366F66004 
538366EC003C00014CDF08084E752602 
267COOFCDD81081300046608538366F6 
003C00014E75611A6516243C00180000 
117C0002000210BC008161D265026102 
4E75117CO0FF000210BC00856186267C 
OOFCDD817619081300046708534366F6 
003C00014E75267COOFCDD8108130004 
670261CE4E7545FA1B95610016804E75 
307C000820CB20CB721420CC534166FA 
307C0080722020CC534166FA4E7561D6 
227C0001FFEC247C000200004281243C 
01200000760A78036100008665223029 
00040C40AAAA67047054601447FA0060 
49FA006461AA247C000200006000FD74 
0C38000302AF670645FA1B85600445FA 


tey 


1BBA0C000050660E0807001C66086100 
11AA6000F8FA610015A26100F6E66100 
F7886100F7846100F780610011C80238 
OOFC02A208F8000002A26000064049FA 
00066000FDB849FA00066000FDBE60A0 
48E73F7E40E7007C0700617467047050 
605C081000016608538266F67051604E 
610000B664186100018A610000AC640E 
610001A46100017C6100009E65304A78 
01B66A066100009265244AB801B46712 
223801B420010280C140C00067047053 
600C7004615C707F224A6156600846DF 
003C0001600446DF42804CDF7EFC4E75 
4280267COOFCDD81001300A0002B00A0 
0004207CO0FCD9010228007B00600028 
006B00604228001800100018021000FB 
022800FC00100028001C001008100000 
4E7512E8000812E8000812E8000812E8 
000851C8FFEE4E75367C030426811743 
000417440005611E651A7402615E6514 
367C01B416E8000816E8000816E80008 
16E800084E7548E728007401613E6412 
0C000055672C610000AA4A006624612C 
6524021000F7117C00FF0018303C0005 
115B000851C8FFFA0010000842280018 
6004003C00014CDF00144E7548E77800 
021000EF422800184280613066181228 
00784203B2026704705260027655612E 
4A006602613C42280018001000184A00 
6704003C00014CDF001E4E75383CFFFF 
081000016706534466F670554E750210 
00E7117COOFF00181143007800100010 
4E75283C00180000600E283C01200000 
6006283C000005000810000166065384 
66F670554E75267COOFCDD810213007F 
6100E97A001300806100E9724E751800 
2A7800082C4F47FA002C21CB00080309 
00004A416A280C41FFFF67226100FD28 
24496148651C103801B3247C00020002 
6000FAF0705A21CD00082E4E6008705B 
6004183801B311C001B445FA18680C04 
00046E047201600C0C0400076E047202 
600272036100128A6000FD7048E770C0 
207C0001FFFC224A4280010A00045440 
OC400FFF624442824283050A00003082 
3418D642E35B588A534066EE050A0000 
D6424A4366244A44672A0801000E6724 


@ "27 computer Boot ROM 2.48 Listing ¢ 261 of 265 


48E70F3E4EB9000200004CDF7CF04A40 
671211C001B5705D6002705C11C001B4 
003C00014CDF030E4E750C39000100FC 
C1916756207CO0FCC191227COOFCC1FF 
42105488B3C866F8700113C000FCC191 
13FC003CO0FCC1C342B801BA427801BE 
702C6100E6E2651E42817408610001E8 
6514223C100000007408610001DA6506 
70256100E6C2650001B061000EC80838 
000202A26718103900FCC1C30C00003C 
660470036002703C13C000FCC1C30C39 
000100FCC1996722203801BCE9984840 
13C000FCC19B423900FCC1C5423900FC 
C1C113FC000100FCC1990C39000200FC 
C1C566000082423900FCC1C547FA1AEB 
610013F47C0C47FAEE7E21CB0008207C 
00FCC001267COOFCDD814A3802AF6704 
785060124281782D6100FB4865166100 
014E6510782D4281123C0008E8996100 
013E642047FA1ACA610013AC7COCOC00O 
00276700010A523900FCC19F64065239 
00FCC19D610001AA117C0088000210BC 
00876100FA9047FA1A56610013841039 
00FCC1C36100F2AA7C0C523900FCC197 
6406523900FCC19561000130203801BC 
E9984840B03900FCC19B6712523900FC 
C1C5523900FCC1C113C000FCC19B6100 
E714103900FCC1C1123900FCC1C3B001 
6C16103CO00F6100F4766100FC146604 
6100FD486000026C423900FCC1992038 
01BC227COOFCC1A101C90000207CO0FC 
C00110BC00896100F9FC6552702D6100 
E54665384281123900FCC1C3703CC2CO 
700CE1B9227CO0FCC1B103C900007405 
61346518103C000F6100F41470236100 
E51665084E7160FC703D6002703E45FA 
14FB610010866100F1CA6000014008C7 
00116000EF36E99910010200000F0000 
00106100E4E26504534266EA4E75117C 
0088000210BC00866100F97A653608AB 
00040004243C00C0000003C800044228 
000210BC00816100F996651610280010 
6100F9C0650C4A00660A5241534466DA 
4E757027003C00014E7547FA19146100 
123052466100EDCA203801BC227COOFC 
C1A101C90000E99872016100F18C5246 
E19872026100F1825246E19872026100 


F1785246E19872026100F1647C0C4E75 
48E7C01047FA190D610011E6267COOFC 
C19D010B000072046100F1447COC4CDF 
08034E756100DB044287423802A208F8 
000102A248E780306100F7FC6100E55C 
6100E57261000A764CDF0C013E7C0480 
48E780306100E32061000B6C61000BFA 
4CDF0401220A670461000FB24A406712 
220A660A7A7E7C126100F0A660046100 
F092265F200B670461001140007C0700 
6100E10A4278053A0238000F02A208F8 
000602A20838000102A2663020380180 
0280001E3FFA661E4A7801886618327C 
2956103C00F147FA18A0347C2CE84281 
61000C98600608F8000102A208380000 
02A26616327C1876103CO0F447FA185A 
347C1C08428161000C72327C3A36303C 
00F247FA1884347C3DC872FF61000C5C 
610009EC08F8000502A26100061A6500 
00B6610009B60CO000F2660861000A9C 
6000F2B60838000002A266120C0000F4 
660C42874A3900FCE0106000DB2E0838 
000102A2666COCO000F1666661000A6C 
02877000000020380180080000006600 
E1000280008FFFFF6700F05C2F006100 
OAF0103C00706100E2BE201F08000002 
670C327C1DF661000ECC6000E6BOEE88 
4A006600EC3AE4884A00670C327C1E12 
61000EB26000EA464A3900FCE01E6000 
E9300C0000F667000064610000306100 
O92E6000FF4645FA126397CB6000FE6E 
428020780110323C1FFD20CO51C9FFFC 
4E75610006344A006AF84E757020323C 
00FA74046100E3E04E7548E7408041FA 
119C32000241007F044100206A047002 
6004103010004CDF01024E756100099C 
610000D26100005A610008C4610004F8 
6594610008960CO000F4670000DA0C00 
00F16700013E0C0000F26700019C0C00 
00F3670001C00C0000E4670002780C00 
00E1670002E80C0000E2661008B80000 
02A2428095CA97CB6000FDC2600002D6 
4278053A0238000F02A270127207C2FC 
000B47FA170D61187807327C05A2347C 
065847FA170549FA177161000B9E4E75 
48E7C00008F8000702A2610009385441 
327C05A261000A00327C011161000C18 
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428161000E4097CA240B5442020200FE 
3002720E7 4FF92FC005B610009224CDF 
00034E75327C0EDA7042223C00000140 
47FAD830610009A031FC003E030031FC 
001803024E756100036C650002384A43 
670002400882000024426100034A6506 
0C000020670847FA1774610002367204 
610003506500020E610002E64A436702 
60027410200A72086100EDFE58467808 
301A72046100EDF25246534466F25182 
51826F06610002BA60DA610002B46000 
01E261000300650001CC4A43670001D4 
2442610002E265060C000020670847FA 
1705610001CE7208610002E8650001A6 
4243670001AE0C0300026E0414C26014 
200A0880000024400C0300046E0434C2 
600224C2610002A0650A0C0000206600 
017460C26000017C6100029A65000166 
42436700016E0882000021C201F84DF8 
01C04CDE3FFF2C7801F84E966100D70C 
600001506100FEDE6100021647FA1602 
781861000DBC47FA168C610001466500 
01244A4366086100FEBC600001265343 
6600011272016100024A0C02000C6200 
010453426BO000FE2F026100075E6100 
0800241F0C0200046C06327C1DF6601C 
0C02000A6C06327C1E1260100C02000B 
6C06327C1E046004327C1E2061000BC6 
D44208C7001F41FA0024D0F020004ED0 
4A3900FCE0106000D7E808F9000600FC 
C18D70026100EE786000E434D7B8FFE4 
E1C6E380DDA4DED4DFOEE62CE730E8B0 
FFEEE91A70FF6100FCFA42806128701B 
721C740C6120D04151CAFFFA42806130 
702C722D740F6128D04151CAFFFA6100 
FCE26000FD1848E7C080725AC0C12078 
0110D1C04218534166FA4CDF01034E75 
48E7F080720880C14282340020780110 
D1C2484092405341745A363C016C0390 
D1C2534366F84CDF010F4E756100066C 
6000F7D26100FC9647FA15616100018C 
6004610001A46100FD18610005826000 
FCBC48E706206100071A3A3C00183C3C 
001861000974544231C2052E61000C52 
610000084CDF04604E75207C000002C0 
224842836100FC3C6100FC504A0067F4 
0C00000866124A4367EA53434A216100 


@ "27 Computer Boot ROM 2.48 Listing ¢ 262 of 265 


008C6100009660DC0C00000D67180C03 
00306D066100FC1660CA524361000088 
61000C3860BE4E7548E7E0807A487C18 
61000C08204ED0FC0384343C001B323C 
000A303C00423CD855406EFA52457C18 
61000BE8204ED0FC0384534166E45342 
66DC3A3C014C3C3C00184CDF01074E75 
3A3803007C180645000A0C45014C6F02 
61A631C5030031C603024E755346BC78 
052E6C043C38052E4E75303C00206100 
0BBA53464E752F0A347C0300B5C96702 
12C0245F4E75B3C8670410186004003C 
00014E7547FA14156100FEE872086102 
4E754283428261DE652E0C0000206604 
4A2060240C0000306D240C000039630C 
0C0000416D180C0000466E126116E98A 
84005243B20366CE023C0O0FE6004003C 
00014E750C0000406E06040000306008 
040000410600000A4E7548E786006100 
05A23A3C00183C3C001861000AFE6100 
OAEO4CDF00614E75705A3C7CO5FA4281 
2A4E223C00000708068100000168DBC1 
610004AC4E750838000302A2666C6100 
00E80C000006660808B8000402A260EE 
0C000086660808F8000402A260144A00 
661A61000376610003960838000402A2 
67CC610001C267C6600000820CO000FF 
660808F8000302A260200C00007F6608 
08B8000302A260A60838000502A2669E 
4A006A92610001EC4E756100007C0C00 
007F660808B8000302A260820C000006 
660808B8000402A260E00C0000866608 
08F8000402A260144A006618610002FC 
6100031C0838000402A267BE61000148 
67B860086AB46100019A4E7532006100 
00280C000006660A08B8000402A23001 
4E754A0066E8610002C2610002E26100 
011666D86000FF10610000844A006708 
0C00008067164E75617411C0048A616E 
11C0048B610001D442404E7561600C00 
OODF63180CO000EF63180C0000FB6500 
001867160CO000FD630E601011C001B2 
60B611C00480601660AE604COCOO000FE 
6604703460027035003C00014E7548E7 
60E043F8048145F8048672056100DCDO 
6504534166F64CDF07066000FF7C2F08 
207COOFCDD811028001A0800000167F6 


10280002205F4E75080700116622207C 
00FCC0016144422800046100F06A117C 
008000046100F06010BC00896100F006 
49FA00066000D9FA203C0003D0906100 
DCD270216100DB406100DCC26100F8EE 
45FA0B2970346000E798117C00880002 
10BC00866100EFCE267COOFCDD8108AB 
000400044E7548E77F803C3804963E38 
049841F8053A301867424C98003EBC42 
6DOEBC4 4 6E0ABE436D06BE456E02600E 
42416A046100004C534066DE601E4A41 
6B186100003E534067104A586B045048 
60F44C98003C6100002A30014CDFO1FE 
4E7548E77E8041F8053A3C184C98003E 
B2006706534666F4600261064CDFO17E 
4E7548E7F8406100012208680007FFF6 
3004904280FC000832059243524193C9 
E64AD2C2785AC6C4D2C30838000702A2 
6706D2FC005A534174FF48E7E0406100 
022E4CDF02070838000602A267066100 
03E8600C0838000702A2670461000424 
610000EC4CDF021F4E7548E77C003038 
0486323804881438048A48821638048B 
488338026C0244443A036C024445D845 
9878048E6E16D0423403D643D643D642 
54436D025643E643D2436010D2433602 
D443D4436D025242E242D0424A406C02 
42400C4002D06F04303C02D04A416C02 
42410C41016C6F04323C016C31C00486 
31C1048831C0049631C104984CDF003E 
4E7531FC0168048631FC00B6048831FC 
0008048E707C6100D98E4E7542780490 
4278049231FC0010049431FC01680496 
31FC00B6049861CA4E7548E7COC041F8 
04A22278052830380526323C005A6004 
2298D2C151C8FFFA4CDF03034E7548E7 
FCF041F804A22278011045FA090047FA 
08FC3038049032380492383804949078 
0496444034000242000F444206420010 
42834 643E5AB0240FFF06C0A4240E18B 
E18B064200100C4002B06F140C4002D0 
66027600303CO2BOE08BE08B06420010 
9278049844416C0CD841D24194C196C1 
424160103A3C016C9A44B2456F0C383C 
016C98414A446C02424431C0052231C1 
052431C40526E648D2C07A5AC2C5D3C1 
21C905286016301AE5B8C083321BE5B9 


tex 


C283468120D1C391B191D2C551CCFFE8 
ACDFOF3F4E754282612E705A74FF327C 
05A0720161423C7CO5FA3A7C7FF8243C 
AAAA555548427201224E6100002CDCCO 
BCCD6DF04E7574FF323C016B705A93C9 
61164E7548E7E040705A7210740093C9 
61064CDF02074E7549FA0020600449FA 
001ED3F801102F0A4283360044830683 
0000005A2449D5C04ED432C26002B559 
B5C9670260F2D3C3D4FC005A534166E8 
245F4E757A597C0C48E7C040704E223C 
000000A4327C1140616C4CDF02034E75 
48E7C04070467254327C114461587A40 
7COE47FA0CA672FF6100049A610003EA 
610003FA610003EC610003FC4CDF0203 
4E7548E7C04070427214327C071E6126 
ACDF02034E7548E7C040611A2F09D2FC 
05A0720174FF6100FF50225F610001DA 
ACDF02034E7548E7F87848E7C0404282 
6100FF3693C393C0720174FF6100FF38 
5449720155406100FF2E4CDF020348E7 
404072016100FF124CDF041074015544 
5540D3C0220442806130303C00B67407 
22046136303C0110740622045341612A 
224AD3F80110705AD3C0343C80002204 
428061064CDF1E1F4E75338200005341 
67060640005A60F24E7505F100005341 
67060640005A60F24E7548E7402045F8 
053A3412C4FC0005D442525A35802000 
6100F48838006100016ECCFC00083586 
200235852004700A721C614C2F093278 
052C61000152CCFC0008358620063585 
2008225F48E7F870E2886100013ADC80 
E2895981DA81534642406100045E2004 
610004584CDFOE1F4CDF0402224A6100 
0116610003404E7548E7F87074FF7201 
6100FE2693C3222F0004428074076100 
FF5A226F0014D3F80110222F00044280 
74076100FF46D3C02017720174FF6100 
FE0693C393F8011031C9052C4CDFOE1F 
4E7548E7C040D3F80110740742804EBA 
FF1A2017222F0004D3C0534942804282 
4EBAFF084CDF02034E7548E7FO80COFC 
000841F8053A32184282263C000003DE 
5241141C30C2617ECCFC000830C630C5 
DC4030C60645000B30C52F09224A6166 
6100035E225FD3C3D5C3534466D231C1 
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053A4CDF010F4E7548E7FEFE615AE288 
E28A908261405845DC8048E706006100 
03304CDF0060594555460246FFFE9DCE 
6100033C224E266F00286100002C5242 
0242FFFE20025840720F74FF6100FD30 
ACDF7F7F4E752F02240984FCO05A3A02 
48423C02241F4E75244B141A66FC95CB 
240A4E757005721F61024E7548E73802 
765A42843400600252441D9A400051CA 
FFF8DDC351C9FFEC52464CDF401C4E75 
610000DA3A7C287E610ADBF801106100 
008C4E752F00224D619C47FA05A8B7CA 
6608064500165646603847FA0552B7CA 
660806450010584660284A3802AF6646 
47FA088CB7CA66080645001258466012 
47FA067CB7CA66065C45564660045B45 
5846610002665341660645FA0480600E 
5341660645FA047B600445FA047A7000 
72046100FF58201F4E756100FC8C7A73 
7010610002362A4E610000F845FA079A 
610845FA07E261024E7548E7F0062C4D 
5C4E48E70006610000DA4CDF60007654 
741F72023016815D425E51C9FFF8DBC3 
DDC351CAFFEE4CDF600F4E7548E7C020 
6100FC367A737C10610001E0220A6A0C 
0881001F24416100FEDC600461000094 
ACDF04034E756100FC107A737C106100 
01BA2A4E617C45FA06FD2C4DDCFC0006 
61704E7548E7E0007006722074FF6100 
FBAE4CDF00074E7545FA04013C7C1DF6 
601C45FA043A3C7C1E04601245FA03AD 
3C7C1E12600845FA046C3C7C1E20DDF8 
0110612E4E7561D03A7C1DF6601661D2 
3A7C1E04600E61D43A7C1E12600661D6 
3A7C1E2045FA06B2DBF801106100FF1C 
4E7548E7E0A0204E72177405303C0100 
101AE24867146404421E60021CDA51CA 
FFF2DCFC0054740560E851C9FFE02C48 
244ED4FC005A323C001E201EB19A301E 
B15AD4FC0054DCFC005451C9FFEE4CDF 
05074E7548E7A00045FA0887B7CA6770 
244B103801B267680200003F14000202 
00F0675C0C02003066080C00003D6726 
604E0C020020661E0C00002F67420C00 
002E67320C000026672C0C00002D672A 
0C00002767240838000702A266120445 
000A61240645000A611E0645000A6010 


6130612E600A4A1B66FC4A1B66FC244B 
61064CDF00054E7548E7060061422F0B 
4241670647FA07F76136265F4CDF0060 
4E75612C702F61624E7548E70E003A3C 
007E7C18380561184CDF00704E75CAFC 
000A610C4E7561080645000A7C014E75 
2F000C45014C6F046100F3FE4280101B 
6704612660EC201F4E752C7801102F00 
42803005COFCO05A0640005AD08E2C40 
42803006DDC0201F4E7548E7C02261DA 
0240007F4A0067380C000020672C0C00 
000D67320C00003F67340400002D6D14 
OCO0000C6F2ZE5F000CO0000D6D060C00 
00266F2045FA013A602645FA003E6020 
45FA0134601A0645000A3C04602645FA 
011A600C3200E7489041904145FB0022 
428072054216DDFCO000005A6100FC7E 
422E02764CDF44034E75000000000000 
0000007C000000000000003004081020 
40803844444444380838080808083844 
0810207C384418044438081828487C08 
7040780444383840784444387C081010 
20203844384444383844443C04383048 
84FC8484F884F88484F8788480808478 
F884848484F8FC80F88080FCFC80F880 
80807884809C847C8484FC8484843810 
101010381C08080888708890A0D08884 
8080808080FC84CCB484848484C4A494 
8C84788484848478F88484F880807884 
84849478F88484F88884788460188478 
FE101010101084848484847844442828 
1010828292AA44444428102844828244 
28101010FC08102040FC384408100010 
C7BBF7EFFFEF0877FEFE7F3E1B2D1112 
37383914343536132E32330300000000 
0000000000000000000000002D3D0000 
500800000D3000002F31000039305549 
4204B5B5D4D4C3B27202C2E4F45363738 
35525459004647485643424E41323334 
31515357005A5844000000008000C000 
EOOOFOOOF800FCOOFEOOFFOOF800F800 
CC008C000600060003000300E0606060 
FOE03060COFOE0306030E0FFFFFF3F03 
FFOOFFFFFFEOO1LFFFFFFE4FEFC0702FF9 
50669EC00180F70379560674FEOFFFFF 
FFFFFFFFFF3F01AA60AAAFFFC00307C4 
FFEO555550F1FFFFF8FFFFFFFFFF3F03 


tex 


FFOOFFFFFFEOOLFFFFFFC4FFC079F240 
F938E0BFEOEFF07138018079FCO3COFF 
FFFFFFFFFFFF3F01FECOAAAABFCO03FC 
841FE001555540E103FFFFEOFFFFFFFE 
FFFFFFFFC31FFFFFCO800FFFFF8007FF 
EOE303FFFOFFFFFF71045E88021C8E50 
038C70C7010C207BOE040C5E8803FFD5 
5700FF8007FF8003FFCOF32AA8FC7FFC 
FFFFFFFFFFFFFFFFFEFFELOLFFFF80FC 
FFFFFFFFFFFFFFFFFEFFFFFFFFEEDFO3 
63EAAD80013CC0061550CF3FF8FFFFFF 
611FFFFFF80F18FFFFFOOFFFFF86F011 
FFFF886D05A00218800140014FF2CE80 
A815F3542A3C2A541428CF0810FF3C08 
101428CF2814F3500A1CA00501466286 
800288114061051008A01118E007880F 
FFFF86FOOFFFFFFOE11FFFFFF8FFFFFF 
FFFFFFFEFFFFFFFFFOO1LFFFFFFFFFF83F 
FFFOFFFFFFFCFFCC037F0180CF037FFC 
0180003FFFFFFFFFFC1CFF60FFF3FF38 
O30CFDCOFFFFFFFFFFFFFFFFFFFFFFFE 
FFFFFF2FO81FFFO8FFFCLOLFFFFFFCO2 
201FFFFFFC47F8201FFFFFFC801FFF08 
FFFC801FFFFFFC8047F81FFFFFFC20E0 
1FFFFFFC10FBO8FFFFFFFFFFFFFFFEFE 
FFFFFFFFFFFFFFEFO23803FF0407FF22 
883FFFF811FEE87FFFFC208B207FFFEFC 
AO11FE3FFFF808E307FF84F803FFO2FF 
FFFFFFFFFFFFFF7907FEOFC6FF7FFFFO 
71FFFFF80A18AAAAA8FAAAAAF 6A060E3 
03C007380420060810FFF308103C0420 
O3COFFFFFFFF611FFFFFF80F38FFFFFO 
0180CF0240F304203C08101008CF1C38 
FFFFCF03COCFO1COFF3FOE38CF0808F3 
04103C02200140DF80F301C03F014020 
1B6DB6DB6016DB08 6DB6DF3B6DB6DB80 
678006DB6DB6D8FFOF4FFFFFFFOOFFFO 
FFFFFFFFFFF8001B6DB6D836C01BéD00 
B6D836C0O1B6DB6D80036C01B6DB6D836 
C0001B6DB6D836C01B6D00B6D836C01B 
FFFFD80036CO1BFFFFD836CO00FFFFFF 
FFFFF87FFFFOFFFFFFFOFFFDEOFFF307 
1C€3C04040208CF0110F7A03D4001E0FF 
F301207F3F9CFF80FFFEFFFF3C7E7CFF 
FECF1FFOF30FEO3COFEOLFFOFFFFFFFF 
FFFFCFFFFEFFFFFFFEFFFFFFFFCFOFEO 
F30380FEOCCF0380F7EQOBFO3EF03FFFE 


@ "27 Computer Boot ROM 2.48 Listing * 264 of 265 


O3FFFFFFFFFFFFFFCF0780F30E80BE1B 
36EF6C7BD8019EB00360E706C0790D80 
1BDF36F'76C3DD801B0CF0360F306COBC 
OD801BEF36FB6C9ED801B0E7036038F8 
O06CODCODCE80361BF31B363CODECO6D8 
CF0330F301E03C03CO02E0CF01BOF7D8 
7D6C36DF1BE70D807906C0039E6001B0 
EFD8FB6CBE361BCFOD80F306C03C0360 
01BODFD8F'76C7D361B9F0D80E706C079 
036001BEBOD8EF6CFB363E1B0E80FFFF 
FFFF1FO3FFFF86F807FFFFF4EFOAFBO05 
BC028001FF7D7884CF0102FF7C010284 
DF78FFFFFF7F0O710FFFFFF8003FFFFFE 
FFFFFFFFFFOFO3FFFFFFOOFFCOO7FFFF 
FFFFE0100CFFFFF03001FF70FFF80780 
019EFFOLFFCF0O780FF3F0780E701FF09 
O1FFOLFFFFF84007800CFFFFF0300007 
FFFFFFFFEOO3FFOOFFFFFFCOO3FFFFFF 
OOFFEOO7FFFFFFFFF0O61AAAAAA9I5FF18 
FFFF9OF5SFFFFD861F0AAAA8153F07FF00 
FFFFFFFOO3FFFFFFFCFFEOFFFFFF504F 
574552204359434C494E472041542000 
54494D45204953200044524956452054 
455354004C4F4F5020434F554E542049 
532000504D20425553204552524F5200 
464C4F5050592054455354204641494C 
454400464C4F505059204552524F5220 
434F554E54204953200054455354494E 
47005445535400455320574952442047 
45544553544554005245535441525400 
5245434F4D4D454E434552004E455520 
5354415254454E00434F4E54494E5545 
00434F4E54494E554552005745495445 
524D414348454E005354415254555020 
46524F4D0044454D4152524552204445 
005354415254454E20564F4E002E2E2E 
004F5054494F4E5300444953504C4159 
204D454D2020203100534554204D454D 
4F525920202020320043414C4C205052 
4F4752414D202033004C4F4F50204F4E 
20544553542020340041444A55535420 
564944454F20203500504F5745522043 
59434C45202020360051554954202020 
202020202020203700F4F1F2F3E4E1E2 
31202D20524F4D0D32202D204D4D550D 
33202D20564944454F0D34202D205041 
524954590D35202D2050415241205649 


410D36202D204B594244205649410D37 
202D20434F50530D38202D205343430D 
39202D204449534B0D41202D20434C4F 
434B0D42202D204D454D4F52590D4320 
2D20494F20534C4F5453004144445245 
5353203F0044415441203F00434F554E 
54203F0054455354203F005748415420 
3F000000000000000000000000000000 
000000004338344150504C4502483F7B 


, 


;THE END 


tH 


tex 


6 <7 Computer Boot ROM 2.48 Listing « 265 of 265 


